;;;; Generated on 3/22/2021 at 17:54:18 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%CLANSY %CLANSY %%CLANTB %CLANTB %%CLANTP %CLANTP
  %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB
  %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP
  %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0 %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2
  %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4 %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB
  %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V %CLAR1V %%CLAR2V %CLAR2V %%CLARCM
  %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB %%CLARFG %CLARFG %%CLARFGP %CLARFGP
  %%CLARFT %CLARFT %%CLARFX %CLARFX %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV
  %CLARNV %%CLARRV %CLARRV %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV
  %CLARTV %%CLARZ %CLARZ %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL
  %%CLASCL2 %CLASCL2 %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ
  %CLASWLQ %%CLASWP %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK
  %CLASYF_RK %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF
  %%CLATPS %CLATPS %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR
  %CLATSQR %%CLAUNHR_COL_GETRFNP %CLAUNHR_COL_GETRFNP %%CLAUNHR_COL_GETRFNP2
  %CLAUNHR_COL_GETRFNP2 %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON
  %%CPBEQU %CPBEQU %%CPBRFS %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX
  %CPBSVX %%CPBTF2 %CPBTF2 %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF
  %%CPFTRI %CPFTRI %%CPFTRS %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB
  %CPOEQUB %%CPORFS %CPORFS %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX
  %%CPOSVXX %CPOSVXX %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2
  %%CPOTRI %CPOTRI %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS
  %CPPRFS %%CPPSV %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI
  %%CPPTRS %CPPTRS %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR
  %CPTEQR %%CPTRFS %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF
  %%CPTTRS %CPTTRS %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV
  %CSPMV %%CSPR %CSPR %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF
  %CSPTRF %%CSPTRI %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC
  %%CSTEGR %CSTEGR %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON
  %CSYCON %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV
  %%CSYCONVF %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB
  %%CSYMV %CSYMV %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV
  %CSYSV %%CSYSV_AA %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK
  %CSYSV_RK %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX
  %%CSYSWAPR %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK
  %CSYTF2_ROOK %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE
  %CSYTRF_AA_2STAGE %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI
  %CSYTRI %%CSYTRI2 %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3
  %%CSYTRI_3X %CSYTRI_3X %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2
  %CSYTRS2 %%CSYTRS_3 %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE
  %CSYTRS_AA_2STAGE %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS
  %CTBRFS %%CTBTRS %CTBTRS %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP
  %%CTFTTR %CTFTTR %%CTGEVC %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN
  %CTGSEN %%CTGSJA %CTGSJA %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL
  %%CTPCON %CTPCON %%CTPLQT %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT
  %%CTPMQRT %CTPMQRT %%CTPQRT %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB
  %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR
  %CTPTTR %%CTRCON %CTRCON %%CTREVC %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC
  %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2
  %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP
  %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2
  %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4 %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6
  %%CUNCSD %CUNCSD %%CUNCSD2BY1 %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R
  %%CUNGBR %CUNGBR %%CUNGHR %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL
  %CUNGQL %%CUNGQR %CUNGQR %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR
  %%CUNGTSQR %CUNGTSQR %%CUNHR_COL %CUNHR_COL %%CUNM22 %CUNM22 %%CUNM2L %CUNM2L
  %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2 %%CUNMLQ
  %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3 %CUNMR3
  %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR %%CUPMTR
  %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX %DBDSVDX
  %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA))

(CFFI:DEFCFUN ("clansy_" %%CLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3141 ':INT32) (LDA-REF3143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3143 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3142 A) (WORK-REF3144 WORK))
      (%%CLANSY NORM UPLO N-REF3141 A-REF3142 LDA-REF3143 WORK-REF3144))))

(CFFI:DEFCFUN ("clantb_" %%CLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3148 ':INT32) (K-REF3149 ':INT32)
                              (LDAB-REF3151 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3148 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3149 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3151 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3150 AB) (WORK-REF3152 WORK))
      (%%CLANTB NORM UPLO DIAG N-REF3148 K-REF3149 AB-REF3150 LDAB-REF3151
       WORK-REF3152))))

(CFFI:DEFCFUN ("clantp_" %%CLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3156 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3157 AP) (WORK-REF3158 WORK))
      (%%CLANTP NORM UPLO DIAG N-REF3156 AP-REF3157 WORK-REF3158))))

(CFFI:DEFCFUN ("clantr_" %%CLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3162 ':INT32) (N-REF3163 ':INT32)
                              (LDA-REF3165 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3162 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3163 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3165 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3164 A) (WORK-REF3166 WORK))
      (%%CLANTR NORM UPLO DIAG M-REF3162 N-REF3163 A-REF3164 LDA-REF3165
       WORK-REF3166))))

(CFFI:DEFCFUN ("clapll_" %%CLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %CLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3167 ':INT32) (INCX-REF3169 ':INT32)
                              (INCY-REF3171 ':INT32) (SSMIN-REF3172 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3167 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3169 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3171 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF3172 :FLOAT) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3168 X) (Y-REF3170 Y))
      (%%CLAPLL N-REF3167 X-REF3168 INCX-REF3169 Y-REF3170 INCY-REF3171
       SSMIN-REF3172))))

(CFFI:DEFCFUN ("clapmr_" %%CLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %CLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3173 ':INT32) (M-REF3174 ':INT32)
                              (N-REF3175 ':INT32) (LDX-REF3177 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3173 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3174 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3177 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3176 X) (K-REF3178 K))
      (%%CLAPMR FORWRD-REF3173 M-REF3174 N-REF3175 X-REF3176 LDX-REF3177
       K-REF3178))))

(CFFI:DEFCFUN ("clapmt_" %%CLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %CLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3179 ':INT32) (M-REF3180 ':INT32)
                              (N-REF3181 ':INT32) (LDX-REF3183 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3179 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3180 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3181 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3183 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3182 X) (K-REF3184 K))
      (%%CLAPMT FORWRD-REF3179 M-REF3180 N-REF3181 X-REF3182 LDX-REF3183
       K-REF3184))))

(CFFI:DEFCFUN ("claqgb_" %%CLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3185 ':INT32) (N-REF3186 ':INT32)
                              (KL-REF3187 ':INT32) (KU-REF3188 ':INT32)
                              (LDAB-REF3190 ':INT32) (ROWCND-REF3193 ':FLOAT)
                              (COLCND-REF3194 ':FLOAT) (AMAX-REF3195 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3185 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3187 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3188 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3190 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3193 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3194 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3195 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3189 AB) (R-REF3191 R)
                                            (C-REF3192 C))
      (%%CLAQGB M-REF3185 N-REF3186 KL-REF3187 KU-REF3188 AB-REF3189
       LDAB-REF3190 R-REF3191 C-REF3192 ROWCND-REF3193 COLCND-REF3194
       AMAX-REF3195 EQUED))))

(CFFI:DEFCFUN ("claqge_" %%CLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3197 ':INT32) (N-REF3198 ':INT32)
                              (LDA-REF3200 ':INT32) (ROWCND-REF3203 ':FLOAT)
                              (COLCND-REF3204 ':FLOAT) (AMAX-REF3205 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3197 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3198 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3200 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3203 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3204 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3205 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3199 A) (R-REF3201 R)
                                            (C-REF3202 C))
      (%%CLAQGE M-REF3197 N-REF3198 A-REF3199 LDA-REF3200 R-REF3201 C-REF3202
       ROWCND-REF3203 COLCND-REF3204 AMAX-REF3205 EQUED))))

(CFFI:DEFCFUN ("claqhb_" %%CLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQHB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3208 ':INT32) (KD-REF3209 ':INT32)
                              (LDAB-REF3211 ':INT32) (SCOND-REF3213 ':FLOAT)
                              (AMAX-REF3214 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3208 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3209 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3211 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3213 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3214 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3210 AB) (S-REF3212 S))
      (%%CLAQHB UPLO N-REF3208 KD-REF3209 AB-REF3210 LDAB-REF3211 S-REF3212
       SCOND-REF3213 AMAX-REF3214 EQUED))))

(CFFI:DEFCFUN ("claqhe_" %%CLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQHE (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3217 ':INT32) (LDA-REF3219 ':INT32)
                              (SCOND-REF3221 ':FLOAT) (AMAX-REF3222 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3219 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3221 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3222 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3218 A) (S-REF3220 S))
      (%%CLAQHE UPLO N-REF3217 A-REF3218 LDA-REF3219 S-REF3220 SCOND-REF3221
       AMAX-REF3222 EQUED))))

(CFFI:DEFCFUN ("claqhp_" %%CLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQHP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3225 ':INT32) (SCOND-REF3228 ':FLOAT)
                              (AMAX-REF3229 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3228 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3229 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3226 AP) (S-REF3227 S))
      (%%CLAQHP UPLO N-REF3225 AP-REF3226 S-REF3227 SCOND-REF3228 AMAX-REF3229
       EQUED))))

(CFFI:DEFCFUN ("claqp2_" %%CLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3231 ':INT32) (N-REF3232 ':INT32)
                              (OFFSET-REF3233 ':INT32) (LDA-REF3235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3231 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3233 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3235 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3234 A) (JPVT-REF3236 JPVT)
                                            (TAU-REF3237 TAU) (VN1-REF3238 VN1)
                                            (VN2-REF3239 VN2)
                                            (WORK-REF3240 WORK))
      (%%CLAQP2 M-REF3231 N-REF3232 OFFSET-REF3233 A-REF3234 LDA-REF3235
       JPVT-REF3236 TAU-REF3237 VN1-REF3238 VN2-REF3239 WORK-REF3240))))

(CFFI:DEFCFUN ("claqps_" %%CLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %CLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3241 ':INT32) (N-REF3242 ':INT32)
                              (OFFSET-REF3243 ':INT32) (NB-REF3244 ':INT32)
                              (KB-REF3245 ':INT32) (LDA-REF3247 ':INT32)
                              (LDF-REF3254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3241 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3242 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3243 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3244 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3245 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF3254 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3246 A) (JPVT-REF3248 JPVT)
                                            (TAU-REF3249 TAU) (VN1-REF3250 VN1)
                                            (VN2-REF3251 VN2)
                                            (AUXV-REF3252 AUXV) (F-REF3253 F))
      (%%CLAQPS M-REF3241 N-REF3242 OFFSET-REF3243 NB-REF3244 KB-REF3245
       A-REF3246 LDA-REF3247 JPVT-REF3248 TAU-REF3249 VN1-REF3250 VN2-REF3251
       AUXV-REF3252 F-REF3253 LDF-REF3254))))

(CFFI:DEFCFUN ("claqr0_" %%CLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAQR0
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3255 ':INT32) (WANTZ-REF3256 ':INT32)
                              (N-REF3257 ':INT32) (ILO-REF3258 ':INT32)
                              (IHI-REF3259 ':INT32) (LDH-REF3261 ':INT32)
                              (ILOZ-REF3263 ':INT32) (IHIZ-REF3264 ':INT32)
                              (LDZ-REF3266 ':INT32) (LWORK-REF3268 ':INT32)
                              (INFO-REF3269 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3255 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3256 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3257 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3258 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3259 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3261 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3263 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3264 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3266 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3268 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3269 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3260 H) (W-REF3262 W)
                                            (Z-REF3265 Z) (WORK-REF3267 WORK))
      (%%CLAQR0 WANTT-REF3255 WANTZ-REF3256 N-REF3257 ILO-REF3258 IHI-REF3259
       H-REF3260 LDH-REF3261 W-REF3262 ILOZ-REF3263 IHIZ-REF3264 Z-REF3265
       LDZ-REF3266 WORK-REF3267 LWORK-REF3268 INFO-REF3269))))

(CFFI:DEFCFUN ("claqr1_" %%CLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (S1 :POINTER)
  (S2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %CLAQR1 (N H LDH S1 S2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3270 ':INT32) (LDH-REF3272 ':INT32)
                              (S1-REF3273
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (S2-REF3274
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3270 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3272 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S1-REF3273 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S2-REF3274 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S2)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3271 H) (V-REF3275 V))
      (%%CLAQR1 N-REF3270 H-REF3271 LDH-REF3272 S1-REF3273 S2-REF3274
       V-REF3275))))

(CFFI:DEFCFUN ("claqr2_" %%CLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %CLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3276 ':INT32) (WANTZ-REF3277 ':INT32)
                              (N-REF3278 ':INT32) (KTOP-REF3279 ':INT32)
                              (KBOT-REF3280 ':INT32) (NW-REF3281 ':INT32)
                              (LDH-REF3283 ':INT32) (ILOZ-REF3284 ':INT32)
                              (IHIZ-REF3285 ':INT32) (LDZ-REF3287 ':INT32)
                              (NS-REF3288 ':INT32) (ND-REF3289 ':INT32)
                              (LDV-REF3292 ':INT32) (NH-REF3293 ':INT32)
                              (LDT-REF3295 ':INT32) (NV-REF3296 ':INT32)
                              (LDWV-REF3298 ':INT32) (LWORK-REF3300 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3276 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3277 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3279 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3280 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3281 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3283 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3284 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3285 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3287 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3288 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3289 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3292 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3293 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3295 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3296 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3298 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3300 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3282 H) (Z-REF3286 Z)
                                            (SH-REF3290 SH) (V-REF3291 V)
                                            (T-REF3294 T) (WV-REF3297 WV)
                                            (WORK-REF3299 WORK))
      (%%CLAQR2 WANTT-REF3276 WANTZ-REF3277 N-REF3278 KTOP-REF3279 KBOT-REF3280
       NW-REF3281 H-REF3282 LDH-REF3283 ILOZ-REF3284 IHIZ-REF3285 Z-REF3286
       LDZ-REF3287 NS-REF3288 ND-REF3289 SH-REF3290 V-REF3291 LDV-REF3292
       NH-REF3293 T-REF3294 LDT-REF3295 NV-REF3296 WV-REF3297 LDWV-REF3298
       WORK-REF3299 LWORK-REF3300))))

(CFFI:DEFCFUN ("claqr3_" %%CLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %CLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3301 ':INT32) (WANTZ-REF3302 ':INT32)
                              (N-REF3303 ':INT32) (KTOP-REF3304 ':INT32)
                              (KBOT-REF3305 ':INT32) (NW-REF3306 ':INT32)
                              (LDH-REF3308 ':INT32) (ILOZ-REF3309 ':INT32)
                              (IHIZ-REF3310 ':INT32) (LDZ-REF3312 ':INT32)
                              (NS-REF3313 ':INT32) (ND-REF3314 ':INT32)
                              (LDV-REF3317 ':INT32) (NH-REF3318 ':INT32)
                              (LDT-REF3320 ':INT32) (NV-REF3321 ':INT32)
                              (LDWV-REF3323 ':INT32) (LWORK-REF3325 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3301 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3302 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3303 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3304 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3305 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3306 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3308 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3309 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3310 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3312 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3313 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3314 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3317 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3318 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3320 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3321 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3323 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3325 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3307 H) (Z-REF3311 Z)
                                            (SH-REF3315 SH) (V-REF3316 V)
                                            (T-REF3319 T) (WV-REF3322 WV)
                                            (WORK-REF3324 WORK))
      (%%CLAQR3 WANTT-REF3301 WANTZ-REF3302 N-REF3303 KTOP-REF3304 KBOT-REF3305
       NW-REF3306 H-REF3307 LDH-REF3308 ILOZ-REF3309 IHIZ-REF3310 Z-REF3311
       LDZ-REF3312 NS-REF3313 ND-REF3314 SH-REF3315 V-REF3316 LDV-REF3317
       NH-REF3318 T-REF3319 LDT-REF3320 NV-REF3321 WV-REF3322 LDWV-REF3323
       WORK-REF3324 LWORK-REF3325))))

(CFFI:DEFCFUN ("claqr4_" %%CLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAQR4
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3326 ':INT32) (WANTZ-REF3327 ':INT32)
                              (N-REF3328 ':INT32) (ILO-REF3329 ':INT32)
                              (IHI-REF3330 ':INT32) (LDH-REF3332 ':INT32)
                              (ILOZ-REF3334 ':INT32) (IHIZ-REF3335 ':INT32)
                              (LDZ-REF3337 ':INT32) (LWORK-REF3339 ':INT32)
                              (INFO-REF3340 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3326 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3327 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3328 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3329 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3330 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3332 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3334 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3335 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3337 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3339 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3340 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3331 H) (W-REF3333 W)
                                            (Z-REF3336 Z) (WORK-REF3338 WORK))
      (%%CLAQR4 WANTT-REF3326 WANTZ-REF3327 N-REF3328 ILO-REF3329 IHI-REF3330
       H-REF3331 LDH-REF3332 W-REF3333 ILOZ-REF3334 IHIZ-REF3335 Z-REF3336
       LDZ-REF3337 WORK-REF3338 LWORK-REF3339 INFO-REF3340))))

(CFFI:DEFCFUN ("claqr5_" %%CLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (S :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %CLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS S H LDH ILOZ IHIZ Z
                    LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3341 ':INT32) (WANTZ-REF3342 ':INT32)
                              (KACC22-REF3343 ':INT32) (N-REF3344 ':INT32)
                              (KTOP-REF3345 ':INT32) (KBOT-REF3346 ':INT32)
                              (NSHFTS-REF3347 ':INT32) (LDH-REF3350 ':INT32)
                              (ILOZ-REF3351 ':INT32) (IHIZ-REF3352 ':INT32)
                              (LDZ-REF3354 ':INT32) (LDV-REF3356 ':INT32)
                              (LDU-REF3358 ':INT32) (NV-REF3359 ':INT32)
                              (LDWV-REF3361 ':INT32) (NH-REF3362 ':INT32)
                              (LDWH-REF3364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3341 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3342 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF3343 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3344 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3345 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3346 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF3347 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3350 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3351 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3352 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3354 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3356 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3358 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3359 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3361 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3362 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF3364 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF3348 S) (H-REF3349 H)
                                            (Z-REF3353 Z) (V-REF3355 V)
                                            (U-REF3357 U) (WV-REF3360 WV)
                                            (WH-REF3363 WH))
      (%%CLAQR5 WANTT-REF3341 WANTZ-REF3342 KACC22-REF3343 N-REF3344
       KTOP-REF3345 KBOT-REF3346 NSHFTS-REF3347 S-REF3348 H-REF3349 LDH-REF3350
       ILOZ-REF3351 IHIZ-REF3352 Z-REF3353 LDZ-REF3354 V-REF3355 LDV-REF3356
       U-REF3357 LDU-REF3358 NV-REF3359 WV-REF3360 LDWV-REF3361 NH-REF3362
       WH-REF3363 LDWH-REF3364))))

(CFFI:DEFCFUN ("claqsb_" %%CLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3366 ':INT32) (KD-REF3367 ':INT32)
                              (LDAB-REF3369 ':INT32) (SCOND-REF3371 ':FLOAT)
                              (AMAX-REF3372 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3366 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3367 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3369 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3371 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3372 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3368 AB) (S-REF3370 S))
      (%%CLAQSB UPLO N-REF3366 KD-REF3367 AB-REF3368 LDAB-REF3369 S-REF3370
       SCOND-REF3371 AMAX-REF3372 EQUED))))

(CFFI:DEFCFUN ("claqsp_" %%CLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3375 ':INT32) (SCOND-REF3378 ':FLOAT)
                              (AMAX-REF3379 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3375 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3378 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3379 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3376 AP) (S-REF3377 S))
      (%%CLAQSP UPLO N-REF3375 AP-REF3376 S-REF3377 SCOND-REF3378 AMAX-REF3379
       EQUED))))

(CFFI:DEFCFUN ("claqsy_" %%CLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3382 ':INT32) (LDA-REF3384 ':INT32)
                              (SCOND-REF3386 ':FLOAT) (AMAX-REF3387 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3384 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3386 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3387 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3383 A) (S-REF3385 S))
      (%%CLAQSY UPLO N-REF3382 A-REF3383 LDA-REF3384 S-REF3385 SCOND-REF3386
       AMAX-REF3387 EQUED))))

(CFFI:DEFCFUN ("clar1v_" %%CLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3389 ':INT32) (B1-REF3390 ':INT32)
                              (BN-REF3391 ':INT32) (LAMBDA-REF3392 ':FLOAT)
                              (PIVMIN-REF3397 ':FLOAT) (GAPTOL-REF3398 ':FLOAT)
                              (WANTNC-REF3400 ':INT32) (NEGCNT-REF3401 ':INT32)
                              (ZTZ-REF3402 ':FLOAT) (MINGMA-REF3403 ':FLOAT)
                              (R-REF3404 ':INT32) (NRMINV-REF3406 ':FLOAT)
                              (RESID-REF3407 ':FLOAT) (RQCORR-REF3408 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3389 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF3390 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF3391 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF3392 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3397 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF3398 :FLOAT) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF3400 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF3401 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF3402 :FLOAT) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF3403 :FLOAT) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF3404 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF3406 :FLOAT) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF3407 :FLOAT) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF3408 :FLOAT) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3393 D) (L-REF3394 L)
                                            (LD-REF3395 LD) (LLD-REF3396 LLD)
                                            (Z-REF3399 Z)
                                            (ISUPPZ-REF3405 ISUPPZ)
                                            (WORK-REF3409 WORK))
      (%%CLAR1V N-REF3389 B1-REF3390 BN-REF3391 LAMBDA-REF3392 D-REF3393
       L-REF3394 LD-REF3395 LLD-REF3396 PIVMIN-REF3397 GAPTOL-REF3398 Z-REF3399
       WANTNC-REF3400 NEGCNT-REF3401 ZTZ-REF3402 MINGMA-REF3403 R-REF3404
       ISUPPZ-REF3405 NRMINV-REF3406 RESID-REF3407 RQCORR-REF3408
       WORK-REF3409))))

(CFFI:DEFCFUN ("clar2v_" %%CLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %CLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3410 ':INT32) (INCX-REF3414 ':INT32)
                              (INCC-REF3417 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3410 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3414 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3417 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3411 X) (Y-REF3412 Y)
                                            (Z-REF3413 Z) (C-REF3415 C)
                                            (S-REF3416 S))
      (%%CLAR2V N-REF3410 X-REF3411 Y-REF3412 Z-REF3413 INCX-REF3414 C-REF3415
       S-REF3416 INCC-REF3417))))

(CFFI:DEFCFUN ("clarcm_" %%CLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLARCM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARCM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3418 ':INT32) (N-REF3419 ':INT32)
                              (LDA-REF3421 ':INT32) (LDB-REF3423 ':INT32)
                              (LDC-REF3425 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3418 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3421 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3423 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3425 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3420 A) (B-REF3422 B)
                                            (C-REF3424 C) (RWORK-REF3426 RWORK))
      (%%CLARCM M-REF3418 N-REF3419 A-REF3420 LDA-REF3421 B-REF3422 LDB-REF3423
       C-REF3424 LDC-REF3425 RWORK-REF3426))))

(CFFI:DEFCFUN ("clarf_" %%CLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3428 ':INT32) (N-REF3429 ':INT32)
                              (INCV-REF3431 ':INT32)
                              (TAU-REF3432
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3428 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3431 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3432
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3434 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3430 V) (C-REF3433 C)
                                            (WORK-REF3435 WORK))
      (%%CLARF SIDE M-REF3428 N-REF3429 V-REF3430 INCV-REF3431 TAU-REF3432
       C-REF3433 LDC-REF3434 WORK-REF3435))))

(CFFI:DEFCFUN ("clarfb_" %%CLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %CLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3440 ':INT32) (N-REF3441 ':INT32)
                              (K-REF3442 ':INT32) (LDV-REF3444 ':INT32)
                              (LDT-REF3446 ':INT32) (LDC-REF3448 ':INT32)
                              (LDWORK-REF3450 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3440 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3442 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3444 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3446 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3448 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3450 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3443 V) (T-REF3445 T)
                                            (C-REF3447 C) (WORK-REF3449 WORK))
      (%%CLARFB SIDE TRANS DIRECT STOREV M-REF3440 N-REF3441 K-REF3442
       V-REF3443 LDV-REF3444 T-REF3445 LDT-REF3446 C-REF3447 LDC-REF3448
       WORK-REF3449 LDWORK-REF3450))))

(CFFI:DEFCFUN ("clarfg_" %%CLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %CLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3451 ':INT32)
                              (ALPHA-REF3452
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF3454 ':INT32)
                              (TAU-REF3455
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3451 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3452
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3454 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3455
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3453 X))
      (%%CLARFG N-REF3451 ALPHA-REF3452 X-REF3453 INCX-REF3454 TAU-REF3455))))

(CFFI:DEFCFUN ("clarfgp_" %%CLARFGP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %CLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3456 ':INT32)
                              (ALPHA-REF3457
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF3459 ':INT32)
                              (TAU-REF3460
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3456 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3457
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3459 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3460
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3458 X))
      (%%CLARFGP N-REF3456 ALPHA-REF3457 X-REF3458 INCX-REF3459 TAU-REF3460))))

(CFFI:DEFCFUN ("clarft_" %%CLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %CLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3463 ':INT32) (K-REF3464 ':INT32)
                              (LDV-REF3466 ':INT32) (LDT-REF3469 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3464 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3466 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3469 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3465 V) (TAU-REF3467 TAU)
                                            (T-REF3468 T))
      (%%CLARFT DIRECT STOREV N-REF3463 K-REF3464 V-REF3465 LDV-REF3466
       TAU-REF3467 T-REF3468 LDT-REF3469))))

(CFFI:DEFCFUN ("clarfx_" %%CLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3471 ':INT32) (N-REF3472 ':INT32)
                              (TAU-REF3474
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3471 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3472 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3474
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3476 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3473 V) (C-REF3475 C)
                                            (WORK-REF3477 WORK))
      (%%CLARFX SIDE M-REF3471 N-REF3472 V-REF3473 TAU-REF3474 C-REF3475
       LDC-REF3476 WORK-REF3477))))

(CFFI:DEFCFUN ("clarfy_" %%CLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3479 ':INT32) (INCV-REF3481 ':INT32)
                              (TAU-REF3482
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3484 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3479 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3481 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3482
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3484 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3480 V) (C-REF3483 C)
                                            (WORK-REF3485 WORK))
      (%%CLARFY UPLO N-REF3479 V-REF3480 INCV-REF3481 TAU-REF3482 C-REF3483
       LDC-REF3484 WORK-REF3485))))

(CFFI:DEFCFUN ("clargv_" %%CLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %CLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3486 ':INT32) (INCX-REF3488 ':INT32)
                              (INCY-REF3490 ':INT32) (INCC-REF3492 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3486 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3488 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3490 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3492 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3487 X) (Y-REF3489 Y)
                                            (C-REF3491 C))
      (%%CLARGV N-REF3486 X-REF3487 INCX-REF3488 Y-REF3489 INCY-REF3490
       C-REF3491 INCC-REF3492))))

(CFFI:DEFCFUN ("clarnv_" %%CLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %CLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF3493 ':INT32) (N-REF3495 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF3493 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3495 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF3494 ISEED) (X-REF3496 X))
      (%%CLARNV IDIST-REF3493 ISEED-REF3494 N-REF3495 X-REF3496))))

(CFFI:DEFCFUN ("clarrv_" %%CLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3497 ':INT32) (VL-REF3498 ':FLOAT)
                              (VU-REF3499 ':FLOAT) (PIVMIN-REF3502 ':FLOAT)
                              (M-REF3504 ':INT32) (DOL-REF3505 ':INT32)
                              (DOU-REF3506 ':INT32) (MINRGP-REF3507 ':FLOAT)
                              (RTOL1-REF3508 ':FLOAT) (RTOL2-REF3509 ':FLOAT)
                              (LDZ-REF3517 ':INT32) (INFO-REF3521 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3497 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3498 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3499 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3502 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3504 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF3505 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF3506 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF3507 :FLOAT) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF3508 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF3509 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3517 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3521 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3500 D) (L-REF3501 L)
                                            (ISPLIT-REF3503 ISPLIT)
                                            (W-REF3510 W) (WERR-REF3511 WERR)
                                            (WGAP-REF3512 WGAP)
                                            (IBLOCK-REF3513 IBLOCK)
                                            (INDEXW-REF3514 INDEXW)
                                            (GERS-REF3515 GERS) (Z-REF3516 Z)
                                            (ISUPPZ-REF3518 ISUPPZ)
                                            (WORK-REF3519 WORK)
                                            (IWORK-REF3520 IWORK))
      (%%CLARRV N-REF3497 VL-REF3498 VU-REF3499 D-REF3500 L-REF3501
       PIVMIN-REF3502 ISPLIT-REF3503 M-REF3504 DOL-REF3505 DOU-REF3506
       MINRGP-REF3507 RTOL1-REF3508 RTOL2-REF3509 W-REF3510 WERR-REF3511
       WGAP-REF3512 IBLOCK-REF3513 INDEXW-REF3514 GERS-REF3515 Z-REF3516
       LDZ-REF3517 ISUPPZ-REF3518 WORK-REF3519 IWORK-REF3520 INFO-REF3521))))

(CFFI:DEFCFUN ("clarscl2_" %%CLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %CLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3522 ':INT32) (N-REF3523 ':INT32)
                              (LDX-REF3526 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3522 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3523 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3526 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3524 D) (X-REF3525 X))
      (%%CLARSCL2 M-REF3522 N-REF3523 D-REF3524 X-REF3525 LDX-REF3526))))

(CFFI:DEFCFUN ("clartg_" %%CLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %CLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF3527
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (G-REF3528
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CS-REF3529 ':FLOAT)
                              (SN-REF3530
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (R-REF3531
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              F-REF3527 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART F)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              G-REF3528 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART G)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF3529 :FLOAT) CS)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN-REF3530 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              R-REF3531 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART R)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLARTG F-REF3527 G-REF3528 CS-REF3529 SN-REF3530 R-REF3531))))

(CFFI:DEFCFUN ("clartv_" %%CLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %CLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3532 ':INT32) (INCX-REF3534 ':INT32)
                              (INCY-REF3536 ':INT32) (INCC-REF3539 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3534 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3536 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3539 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3533 X) (Y-REF3535 Y)
                                            (C-REF3537 C) (S-REF3538 S))
      (%%CLARTV N-REF3532 X-REF3533 INCX-REF3534 Y-REF3535 INCY-REF3536
       C-REF3537 S-REF3538 INCC-REF3539))))

(CFFI:DEFCFUN ("clarz_" %%CLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3541 ':INT32) (N-REF3542 ':INT32)
                              (L-REF3543 ':INT32) (INCV-REF3545 ':INT32)
                              (TAU-REF3546
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3548 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3541 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3542 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3543 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3545 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3546
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3548 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3544 V) (C-REF3547 C)
                                            (WORK-REF3549 WORK))
      (%%CLARZ SIDE M-REF3541 N-REF3542 L-REF3543 V-REF3544 INCV-REF3545
       TAU-REF3546 C-REF3547 LDC-REF3548 WORK-REF3549))))

(CFFI:DEFCFUN ("clarzb_" %%CLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %CLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3554 ':INT32) (N-REF3555 ':INT32)
                              (K-REF3556 ':INT32) (L-REF3557 ':INT32)
                              (LDV-REF3559 ':INT32) (LDT-REF3561 ':INT32)
                              (LDC-REF3563 ':INT32) (LDWORK-REF3565 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3554 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3556 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3557 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3559 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3561 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3563 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3565 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3558 V) (T-REF3560 T)
                                            (C-REF3562 C) (WORK-REF3564 WORK))
      (%%CLARZB SIDE TRANS DIRECT STOREV M-REF3554 N-REF3555 K-REF3556
       L-REF3557 V-REF3558 LDV-REF3559 T-REF3560 LDT-REF3561 C-REF3562
       LDC-REF3563 WORK-REF3564 LDWORK-REF3565))))

(CFFI:DEFCFUN ("clarzt_" %%CLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %CLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3568 ':INT32) (K-REF3569 ':INT32)
                              (LDV-REF3571 ':INT32) (LDT-REF3574 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3569 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3571 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3574 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3570 V) (TAU-REF3572 TAU)
                                            (T-REF3573 T))
      (%%CLARZT DIRECT STOREV N-REF3568 K-REF3569 V-REF3570 LDV-REF3571
       TAU-REF3572 T-REF3573 LDT-REF3574))))

(CFFI:DEFCFUN ("clascl_" %%CLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF3576 ':INT32) (KU-REF3577 ':INT32)
                              (CFROM-REF3578 ':FLOAT) (CTO-REF3579 ':FLOAT)
                              (M-REF3580 ':INT32) (N-REF3581 ':INT32)
                              (LDA-REF3583 ':INT32) (INFO-REF3584 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3576 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3577 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF3578 :FLOAT) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF3579 :FLOAT) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3580 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3583 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3584 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3582 A))
      (%%CLASCL TYPE KL-REF3576 KU-REF3577 CFROM-REF3578 CTO-REF3579 M-REF3580
       N-REF3581 A-REF3582 LDA-REF3583 INFO-REF3584))))

(CFFI:DEFCFUN ("clascl2_" %%CLASCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %CLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3585 ':INT32) (N-REF3586 ':INT32)
                              (LDX-REF3589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3585 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3586 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3589 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3587 D) (X-REF3588 X))
      (%%CLASCL2 M-REF3585 N-REF3586 D-REF3587 X-REF3588 LDX-REF3589))))

(CFFI:DEFCFUN ("claset_" %%CLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3591 ':INT32) (N-REF3592 ':INT32)
                              (ALPHA-REF3593
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (BETA-REF3594
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF3596 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3591 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3592 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3593
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF3594
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3596 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3595 A))
      (%%CLASET UPLO M-REF3591 N-REF3592 ALPHA-REF3593 BETA-REF3594 A-REF3595
       LDA-REF3596))))

(CFFI:DEFCFUN ("clasr_" %%CLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3600 ':INT32) (N-REF3601 ':INT32)
                              (LDA-REF3605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3600 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3605 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF3602 C) (S-REF3603 S)
                                            (A-REF3604 A))
      (%%CLASR SIDE PIVOT DIRECT M-REF3600 N-REF3601 C-REF3602 S-REF3603
       A-REF3604 LDA-REF3605))))

(CFFI:DEFCFUN ("classq_" %%CLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %CLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3606 ':INT32) (INCX-REF3608 ':INT32)
                              (SCALE-REF3609 ':FLOAT) (SUMSQ-REF3610 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3608 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3609 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF3610 :FLOAT) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3607 X))
      (%%CLASSQ N-REF3606 X-REF3607 INCX-REF3608 SCALE-REF3609 SUMSQ-REF3610))))

(CFFI:DEFCFUN ("claswlq_" %%CLASWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3611 ':INT32) (N-REF3612 ':INT32)
                              (MB-REF3613 ':INT32) (NB-REF3614 ':INT32)
                              (LDA-REF3616 ':INT32) (LDT-REF3618 ':INT32)
                              (LWORK-REF3620 ':INT32) (INFO-REF3621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3611 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3612 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3613 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3614 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3618 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3620 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3621 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3615 A) (T-REF3617 T)
                                            (WORK-REF3619 WORK))
      (%%CLASWLQ M-REF3611 N-REF3612 MB-REF3613 NB-REF3614 A-REF3615
       LDA-REF3616 T-REF3617 LDT-REF3618 WORK-REF3619 LWORK-REF3620
       INFO-REF3621))))

(CFFI:DEFCFUN ("claswp_" %%CLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3622 ':INT32) (LDA-REF3624 ':INT32)
                              (K1-REF3625 ':INT32) (K2-REF3626 ':INT32)
                              (INCX-REF3628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3622 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3624 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF3625 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF3626 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3628 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3623 A) (IPIV-REF3627 IPIV))
      (%%CLASWP N-REF3622 A-REF3623 LDA-REF3624 K1-REF3625 K2-REF3626
       IPIV-REF3627 INCX-REF3628))))

(CFFI:DEFCFUN ("clasyf_" %%CLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3630 ':INT32) (NB-REF3631 ':INT32)
                              (KB-REF3632 ':INT32) (LDA-REF3634 ':INT32)
                              (LDW-REF3637 ':INT32) (INFO-REF3638 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3631 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3632 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3634 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3637 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3638 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3633 A) (IPIV-REF3635 IPIV)
                                            (W-REF3636 W))
      (%%CLASYF UPLO N-REF3630 NB-REF3631 KB-REF3632 A-REF3633 LDA-REF3634
       IPIV-REF3635 W-REF3636 LDW-REF3637 INFO-REF3638))))

(CFFI:DEFCFUN ("clasyf_aa_" %%CLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF3640 ':INT32) (M-REF3641 ':INT32)
                              (NB-REF3642 ':INT32) (LDA-REF3644 ':INT32)
                              (LDH-REF3647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF3640 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3641 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3642 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3644 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3647 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3643 A) (IPIV-REF3645 IPIV)
                                            (H-REF3646 H) (WORK-REF3648 WORK))
      (%%CLASYF_AA UPLO J1-REF3640 M-REF3641 NB-REF3642 A-REF3643 LDA-REF3644
       IPIV-REF3645 H-REF3646 LDH-REF3647 WORK-REF3648))))

(CFFI:DEFCFUN ("clasyf_rk_" %%CLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3650 ':INT32) (NB-REF3651 ':INT32)
                              (KB-REF3652 ':INT32) (LDA-REF3654 ':INT32)
                              (LDW-REF3658 ':INT32) (INFO-REF3659 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3651 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3652 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3654 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3658 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3659 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3653 A) (E-REF3655 E)
                                            (IPIV-REF3656 IPIV) (W-REF3657 W))
      (%%CLASYF_RK UPLO N-REF3650 NB-REF3651 KB-REF3652 A-REF3653 LDA-REF3654
       E-REF3655 IPIV-REF3656 W-REF3657 LDW-REF3658 INFO-REF3659))))

(CFFI:DEFCFUN ("clasyf_rook_" %%CLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3661 ':INT32) (NB-REF3662 ':INT32)
                              (KB-REF3663 ':INT32) (LDA-REF3665 ':INT32)
                              (LDW-REF3668 ':INT32) (INFO-REF3669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3661 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3662 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3663 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3665 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3668 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3669 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3664 A) (IPIV-REF3666 IPIV)
                                            (W-REF3667 W))
      (%%CLASYF_ROOK UPLO N-REF3661 NB-REF3662 KB-REF3663 A-REF3664 LDA-REF3665
       IPIV-REF3666 W-REF3667 LDW-REF3668 INFO-REF3669))))

(CFFI:DEFCFUN ("clatbs_" %%CLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3674 ':INT32) (KD-REF3675 ':INT32)
                              (LDAB-REF3677 ':INT32) (SCALE-REF3679 ':FLOAT)
                              (INFO-REF3681 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3674 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3675 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3677 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3679 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3681 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3676 AB) (X-REF3678 X)
                                            (CNORM-REF3680 CNORM))
      (%%CLATBS UPLO TRANS DIAG NORMIN N-REF3674 KD-REF3675 AB-REF3676
       LDAB-REF3677 X-REF3678 SCALE-REF3679 CNORM-REF3680 INFO-REF3681))))

(CFFI:DEFCFUN ("clatdf_" %%CLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %CLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF3682 ':INT32) (N-REF3683 ':INT32)
                              (LDZ-REF3685 ':INT32) (RDSUM-REF3687 ':FLOAT)
                              (RDSCAL-REF3688 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF3682 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3683 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3685 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF3687 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF3688 :FLOAT) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF3684 Z) (RHS-REF3686 RHS)
                                            (IPIV-REF3689 IPIV)
                                            (JPIV-REF3690 JPIV))
      (%%CLATDF IJOB-REF3682 N-REF3683 Z-REF3684 LDZ-REF3685 RHS-REF3686
       RDSUM-REF3687 RDSCAL-REF3688 IPIV-REF3689 JPIV-REF3690))))

(CFFI:DEFCFUN ("clatps_" %%CLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3695 ':INT32) (SCALE-REF3698 ':FLOAT)
                              (INFO-REF3700 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3695 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3698 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3700 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3696 AP) (X-REF3697 X)
                                            (CNORM-REF3699 CNORM))
      (%%CLATPS UPLO TRANS DIAG NORMIN N-REF3695 AP-REF3696 X-REF3697
       SCALE-REF3698 CNORM-REF3699 INFO-REF3700))))

(CFFI:DEFCFUN ("clatrd_" %%CLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %CLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3702 ':INT32) (NB-REF3703 ':INT32)
                              (LDA-REF3705 ':INT32) (LDW-REF3709 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3702 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3703 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3705 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3709 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3704 A) (E-REF3706 E)
                                            (TAU-REF3707 TAU) (W-REF3708 W))
      (%%CLATRD UPLO N-REF3702 NB-REF3703 A-REF3704 LDA-REF3705 E-REF3706
       TAU-REF3707 W-REF3708 LDW-REF3709))))

(CFFI:DEFCFUN ("clatrs_" %%CLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3714 ':INT32) (LDA-REF3716 ':INT32)
                              (SCALE-REF3718 ':FLOAT) (INFO-REF3720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3718 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3715 A) (X-REF3717 X)
                                            (CNORM-REF3719 CNORM))
      (%%CLATRS UPLO TRANS DIAG NORMIN N-REF3714 A-REF3715 LDA-REF3716
       X-REF3717 SCALE-REF3718 CNORM-REF3719 INFO-REF3720))))

(CFFI:DEFCFUN ("clatrz_" %%CLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3721 ':INT32) (N-REF3722 ':INT32)
                              (L-REF3723 ':INT32) (LDA-REF3725 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3721 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3723 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3725 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3724 A) (TAU-REF3726 TAU)
                                            (WORK-REF3727 WORK))
      (%%CLATRZ M-REF3721 N-REF3722 L-REF3723 A-REF3724 LDA-REF3725 TAU-REF3726
       WORK-REF3727))))

(CFFI:DEFCFUN ("clatsqr_" %%CLATSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3728 ':INT32) (N-REF3729 ':INT32)
                              (MB-REF3730 ':INT32) (NB-REF3731 ':INT32)
                              (LDA-REF3733 ':INT32) (LDT-REF3735 ':INT32)
                              (LWORK-REF3737 ':INT32) (INFO-REF3738 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3728 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3730 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3731 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3733 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3735 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3737 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3738 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3732 A) (T-REF3734 T)
                                            (WORK-REF3736 WORK))
      (%%CLATSQR M-REF3728 N-REF3729 MB-REF3730 NB-REF3731 A-REF3732
       LDA-REF3733 T-REF3734 LDT-REF3735 WORK-REF3736 LWORK-REF3737
       INFO-REF3738))))

(CFFI:DEFCFUN ("claunhr_col_getrfnp_" %%CLAUNHR_COL_GETRFNP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAUNHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUNHR_COL_GETRFNP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3739 ':INT32) (N-REF3740 ':INT32)
                              (LDA-REF3742 ':INT32) (INFO-REF3744 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3739 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3740 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3742 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3744 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3741 A) (D-REF3743 D))
      (%%CLAUNHR_COL_GETRFNP M-REF3739 N-REF3740 A-REF3741 LDA-REF3742
       D-REF3743 INFO-REF3744))))

(CFFI:DEFCFUN ("claunhr_col_getrfnp2_" %%CLAUNHR_COL_GETRFNP2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAUNHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUNHR_COL_GETRFNP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3745 ':INT32) (N-REF3746 ':INT32)
                              (LDA-REF3748 ':INT32) (INFO-REF3750 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3745 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3746 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3748 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3750 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3747 A) (D-REF3749 D))
      (%%CLAUNHR_COL_GETRFNP2 M-REF3745 N-REF3746 A-REF3747 LDA-REF3748
       D-REF3749 INFO-REF3750))))

(CFFI:DEFCFUN ("clauu2_" %%CLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3752 ':INT32) (LDA-REF3754 ':INT32)
                              (INFO-REF3755 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3752 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3754 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3755 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3753 A))
      (%%CLAUU2 UPLO N-REF3752 A-REF3753 LDA-REF3754 INFO-REF3755))))

(CFFI:DEFCFUN ("clauum_" %%CLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3757 ':INT32) (LDA-REF3759 ':INT32)
                              (INFO-REF3760 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3757 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3759 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3760 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3758 A))
      (%%CLAUUM UPLO N-REF3757 A-REF3758 LDA-REF3759 INFO-REF3760))))

(CFFI:DEFCFUN ("cpbcon_" %%CPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBCON (UPLO N KD AB LDAB ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3762 ':INT32) (KD-REF3763 ':INT32)
                              (LDAB-REF3765 ':INT32) (ANORM-REF3766 ':FLOAT)
                              (RCOND-REF3767 ':FLOAT) (INFO-REF3770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3762 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3763 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3765 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3766 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3767 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3770 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3764 AB) (WORK-REF3768 WORK)
                                            (RWORK-REF3769 RWORK))
      (%%CPBCON UPLO N-REF3762 KD-REF3763 AB-REF3764 LDAB-REF3765 ANORM-REF3766
       RCOND-REF3767 WORK-REF3768 RWORK-REF3769 INFO-REF3770))))

(CFFI:DEFCFUN ("cpbequ_" %%CPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3772 ':INT32) (KD-REF3773 ':INT32)
                              (LDAB-REF3775 ':INT32) (SCOND-REF3777 ':FLOAT)
                              (AMAX-REF3778 ':FLOAT) (INFO-REF3779 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3772 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3773 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3775 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3777 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3778 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3779 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3774 AB) (S-REF3776 S))
      (%%CPBEQU UPLO N-REF3772 KD-REF3773 AB-REF3774 LDAB-REF3775 S-REF3776
       SCOND-REF3777 AMAX-REF3778 INFO-REF3779))))

(CFFI:DEFCFUN ("cpbrfs_" %%CPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3781 ':INT32) (KD-REF3782 ':INT32)
                              (NRHS-REF3783 ':INT32) (LDAB-REF3785 ':INT32)
                              (LDAFB-REF3787 ':INT32) (LDB-REF3789 ':INT32)
                              (LDX-REF3791 ':INT32) (INFO-REF3796 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3781 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3782 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3783 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3785 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3787 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3789 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3791 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3796 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3784 AB) (AFB-REF3786 AFB)
                                            (B-REF3788 B) (X-REF3790 X)
                                            (FERR-REF3792 FERR)
                                            (BERR-REF3793 BERR)
                                            (WORK-REF3794 WORK)
                                            (RWORK-REF3795 RWORK))
      (%%CPBRFS UPLO N-REF3781 KD-REF3782 NRHS-REF3783 AB-REF3784 LDAB-REF3785
       AFB-REF3786 LDAFB-REF3787 B-REF3788 LDB-REF3789 X-REF3790 LDX-REF3791
       FERR-REF3792 BERR-REF3793 WORK-REF3794 RWORK-REF3795 INFO-REF3796))))

(CFFI:DEFCFUN ("cpbstf_" %%CPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3798 ':INT32) (KD-REF3799 ':INT32)
                              (LDAB-REF3801 ':INT32) (INFO-REF3802 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3798 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3799 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3801 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3802 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3800 AB))
      (%%CPBSTF UPLO N-REF3798 KD-REF3799 AB-REF3800 LDAB-REF3801
       INFO-REF3802))))

(CFFI:DEFCFUN ("cpbsv_" %%CPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3804 ':INT32) (KD-REF3805 ':INT32)
                              (NRHS-REF3806 ':INT32) (LDAB-REF3808 ':INT32)
                              (LDB-REF3810 ':INT32) (INFO-REF3811 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3804 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3805 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3806 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3808 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3810 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3811 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3807 AB) (B-REF3809 B))
      (%%CPBSV UPLO N-REF3804 KD-REF3805 NRHS-REF3806 AB-REF3807 LDAB-REF3808
       B-REF3809 LDB-REF3810 INFO-REF3811))))

(CFFI:DEFCFUN ("cpbsvx_" %%CPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3814 ':INT32) (KD-REF3815 ':INT32)
                              (NRHS-REF3816 ':INT32) (LDAB-REF3818 ':INT32)
                              (LDAFB-REF3820 ':INT32) (LDB-REF3824 ':INT32)
                              (LDX-REF3826 ':INT32) (RCOND-REF3827 ':FLOAT)
                              (INFO-REF3832 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3815 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3816 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3818 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3820 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3824 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3826 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3827 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3832 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3817 AB) (AFB-REF3819 AFB)
                                            (S-REF3822 S) (B-REF3823 B)
                                            (X-REF3825 X) (FERR-REF3828 FERR)
                                            (BERR-REF3829 BERR)
                                            (WORK-REF3830 WORK)
                                            (RWORK-REF3831 RWORK))
      (%%CPBSVX FACT UPLO N-REF3814 KD-REF3815 NRHS-REF3816 AB-REF3817
       LDAB-REF3818 AFB-REF3819 LDAFB-REF3820 EQUED S-REF3822 B-REF3823
       LDB-REF3824 X-REF3825 LDX-REF3826 RCOND-REF3827 FERR-REF3828
       BERR-REF3829 WORK-REF3830 RWORK-REF3831 INFO-REF3832))))

(CFFI:DEFCFUN ("cpbtf2_" %%CPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3834 ':INT32) (KD-REF3835 ':INT32)
                              (LDAB-REF3837 ':INT32) (INFO-REF3838 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3835 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3837 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3838 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3836 AB))
      (%%CPBTF2 UPLO N-REF3834 KD-REF3835 AB-REF3836 LDAB-REF3837
       INFO-REF3838))))

(CFFI:DEFCFUN ("cpbtrf_" %%CPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3840 ':INT32) (KD-REF3841 ':INT32)
                              (LDAB-REF3843 ':INT32) (INFO-REF3844 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3841 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3843 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3844 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3842 AB))
      (%%CPBTRF UPLO N-REF3840 KD-REF3841 AB-REF3842 LDAB-REF3843
       INFO-REF3844))))

(CFFI:DEFCFUN ("cpbtrs_" %%CPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3846 ':INT32) (KD-REF3847 ':INT32)
                              (NRHS-REF3848 ':INT32) (LDAB-REF3850 ':INT32)
                              (LDB-REF3852 ':INT32) (INFO-REF3853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3846 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3847 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3848 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3850 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3852 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3849 AB) (B-REF3851 B))
      (%%CPBTRS UPLO N-REF3846 KD-REF3847 NRHS-REF3848 AB-REF3849 LDAB-REF3850
       B-REF3851 LDB-REF3852 INFO-REF3853))))

(CFFI:DEFCFUN ("cpftrf_" %%CPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3856 ':INT32) (INFO-REF3858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3856 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3857 A))
      (%%CPFTRF TRANSR UPLO N-REF3856 A-REF3857 INFO-REF3858))))

(CFFI:DEFCFUN ("cpftri_" %%CPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3861 ':INT32) (INFO-REF3863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3861 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3863 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3862 A))
      (%%CPFTRI TRANSR UPLO N-REF3861 A-REF3862 INFO-REF3863))))

(CFFI:DEFCFUN ("cpftrs_" %%CPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3866 ':INT32) (NRHS-REF3867 ':INT32)
                              (LDB-REF3870 ':INT32) (INFO-REF3871 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3867 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3870 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3871 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3868 A) (B-REF3869 B))
      (%%CPFTRS TRANSR UPLO N-REF3866 NRHS-REF3867 A-REF3868 B-REF3869
       LDB-REF3870 INFO-REF3871))))

(CFFI:DEFCFUN ("cpocon_" %%CPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOCON (UPLO N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3873 ':INT32) (LDA-REF3875 ':INT32)
                              (ANORM-REF3876 ':FLOAT) (RCOND-REF3877 ':FLOAT)
                              (INFO-REF3880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3875 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3876 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3877 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3880 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3874 A) (WORK-REF3878 WORK)
                                            (RWORK-REF3879 RWORK))
      (%%CPOCON UPLO N-REF3873 A-REF3874 LDA-REF3875 ANORM-REF3876
       RCOND-REF3877 WORK-REF3878 RWORK-REF3879 INFO-REF3880))))

(CFFI:DEFCFUN ("cpoequ_" %%CPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3881 ':INT32) (LDA-REF3883 ':INT32)
                              (SCOND-REF3885 ':FLOAT) (AMAX-REF3886 ':FLOAT)
                              (INFO-REF3887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3883 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3885 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3886 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3882 A) (S-REF3884 S))
      (%%CPOEQU N-REF3881 A-REF3882 LDA-REF3883 S-REF3884 SCOND-REF3885
       AMAX-REF3886 INFO-REF3887))))

(CFFI:DEFCFUN ("cpoequb_" %%CPOEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3888 ':INT32) (LDA-REF3890 ':INT32)
                              (SCOND-REF3892 ':FLOAT) (AMAX-REF3893 ':FLOAT)
                              (INFO-REF3894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3890 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3892 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3893 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3889 A) (S-REF3891 S))
      (%%CPOEQUB N-REF3888 A-REF3889 LDA-REF3890 S-REF3891 SCOND-REF3892
       AMAX-REF3893 INFO-REF3894))))

(CFFI:DEFCFUN ("cporfs_" %%CPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3896 ':INT32) (NRHS-REF3897 ':INT32)
                              (LDA-REF3899 ':INT32) (LDAF-REF3901 ':INT32)
                              (LDB-REF3903 ':INT32) (LDX-REF3905 ':INT32)
                              (INFO-REF3910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3896 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3897 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3901 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3903 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3905 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3898 A) (AF-REF3900 AF)
                                            (B-REF3902 B) (X-REF3904 X)
                                            (FERR-REF3906 FERR)
                                            (BERR-REF3907 BERR)
                                            (WORK-REF3908 WORK)
                                            (RWORK-REF3909 RWORK))
      (%%CPORFS UPLO N-REF3896 NRHS-REF3897 A-REF3898 LDA-REF3899 AF-REF3900
       LDAF-REF3901 B-REF3902 LDB-REF3903 X-REF3904 LDX-REF3905 FERR-REF3906
       BERR-REF3907 WORK-REF3908 RWORK-REF3909 INFO-REF3910))))

(CFFI:DEFCFUN ("cporfsx_" %%CPORFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3913 ':INT32) (NRHS-REF3914 ':INT32)
                              (LDA-REF3916 ':INT32) (LDAF-REF3918 ':INT32)
                              (LDB-REF3921 ':INT32) (LDX-REF3923 ':INT32)
                              (RCOND-REF3924 ':FLOAT)
                              (N_ERR_BNDS-REF3926 ':INT32)
                              (NPARAMS-REF3929 ':INT32) (INFO-REF3933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3913 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3914 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3916 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3918 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3921 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3923 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3924 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3926 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3929 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3915 A) (AF-REF3917 AF)
                                            (S-REF3919 S) (B-REF3920 B)
                                            (X-REF3922 X) (BERR-REF3925 BERR)
                                            (ERR_BNDS_NORM-REF3927
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF3928
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF3930 PARAMS)
                                            (WORK-REF3931 WORK)
                                            (RWORK-REF3932 RWORK))
      (%%CPORFSX UPLO EQUED N-REF3913 NRHS-REF3914 A-REF3915 LDA-REF3916
       AF-REF3917 LDAF-REF3918 S-REF3919 B-REF3920 LDB-REF3921 X-REF3922
       LDX-REF3923 RCOND-REF3924 BERR-REF3925 N_ERR_BNDS-REF3926
       ERR_BNDS_NORM-REF3927 ERR_BNDS_COMP-REF3928 NPARAMS-REF3929
       PARAMS-REF3930 WORK-REF3931 RWORK-REF3932 INFO-REF3933))))

(CFFI:DEFCFUN ("cposv_" %%CPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3935 ':INT32) (NRHS-REF3936 ':INT32)
                              (LDA-REF3938 ':INT32) (LDB-REF3940 ':INT32)
                              (INFO-REF3941 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3936 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3938 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3940 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3941 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3937 A) (B-REF3939 B))
      (%%CPOSV UPLO N-REF3935 NRHS-REF3936 A-REF3937 LDA-REF3938 B-REF3939
       LDB-REF3940 INFO-REF3941))))

(CFFI:DEFCFUN ("cposvx_" %%CPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3944 ':INT32) (NRHS-REF3945 ':INT32)
                              (LDA-REF3947 ':INT32) (LDAF-REF3949 ':INT32)
                              (LDB-REF3953 ':INT32) (LDX-REF3955 ':INT32)
                              (RCOND-REF3956 ':FLOAT) (INFO-REF3961 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3945 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3947 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3949 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3953 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3955 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3956 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3961 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3946 A) (AF-REF3948 AF)
                                            (S-REF3951 S) (B-REF3952 B)
                                            (X-REF3954 X) (FERR-REF3957 FERR)
                                            (BERR-REF3958 BERR)
                                            (WORK-REF3959 WORK)
                                            (RWORK-REF3960 RWORK))
      (%%CPOSVX FACT UPLO N-REF3944 NRHS-REF3945 A-REF3946 LDA-REF3947
       AF-REF3948 LDAF-REF3949 EQUED S-REF3951 B-REF3952 LDB-REF3953 X-REF3954
       LDX-REF3955 RCOND-REF3956 FERR-REF3957 BERR-REF3958 WORK-REF3959
       RWORK-REF3960 INFO-REF3961))))

(CFFI:DEFCFUN ("cposvxx_" %%CPOSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3964 ':INT32) (NRHS-REF3965 ':INT32)
                              (LDA-REF3967 ':INT32) (LDAF-REF3969 ':INT32)
                              (LDB-REF3973 ':INT32) (LDX-REF3975 ':INT32)
                              (RCOND-REF3976 ':FLOAT) (RPVGRW-REF3977 ':FLOAT)
                              (N_ERR_BNDS-REF3979 ':INT32)
                              (NPARAMS-REF3982 ':INT32) (INFO-REF3986 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3965 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3967 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3969 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3973 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3975 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3976 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF3977 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3979 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3982 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3986 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3966 A) (AF-REF3968 AF)
                                            (S-REF3971 S) (B-REF3972 B)
                                            (X-REF3974 X) (BERR-REF3978 BERR)
                                            (ERR_BNDS_NORM-REF3980
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF3981
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF3983 PARAMS)
                                            (WORK-REF3984 WORK)
                                            (RWORK-REF3985 RWORK))
      (%%CPOSVXX FACT UPLO N-REF3964 NRHS-REF3965 A-REF3966 LDA-REF3967
       AF-REF3968 LDAF-REF3969 EQUED S-REF3971 B-REF3972 LDB-REF3973 X-REF3974
       LDX-REF3975 RCOND-REF3976 RPVGRW-REF3977 BERR-REF3978 N_ERR_BNDS-REF3979
       ERR_BNDS_NORM-REF3980 ERR_BNDS_COMP-REF3981 NPARAMS-REF3982
       PARAMS-REF3983 WORK-REF3984 RWORK-REF3985 INFO-REF3986))))

(CFFI:DEFCFUN ("cpotf2_" %%CPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3988 ':INT32) (LDA-REF3990 ':INT32)
                              (INFO-REF3991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3988 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3990 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3991 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3989 A))
      (%%CPOTF2 UPLO N-REF3988 A-REF3989 LDA-REF3990 INFO-REF3991))))

(CFFI:DEFCFUN ("cpotrf_" %%CPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3993 ':INT32) (LDA-REF3995 ':INT32)
                              (INFO-REF3996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3993 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3995 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3994 A))
      (%%CPOTRF UPLO N-REF3993 A-REF3994 LDA-REF3995 INFO-REF3996))))

(CFFI:DEFCFUN ("cpotrf2_" %%CPOTRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3998 ':INT32) (LDA-REF4000 ':INT32)
                              (INFO-REF4001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4000 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3999 A))
      (%%CPOTRF2 UPLO N-REF3998 A-REF3999 LDA-REF4000 INFO-REF4001))))

(CFFI:DEFCFUN ("cpotri_" %%CPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4003 ':INT32) (LDA-REF4005 ':INT32)
                              (INFO-REF4006 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4005 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4006 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4004 A))
      (%%CPOTRI UPLO N-REF4003 A-REF4004 LDA-REF4005 INFO-REF4006))))

(CFFI:DEFCFUN ("cpotrs_" %%CPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4008 ':INT32) (NRHS-REF4009 ':INT32)
                              (LDA-REF4011 ':INT32) (LDB-REF4013 ':INT32)
                              (INFO-REF4014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4008 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4009 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4011 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4013 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4014 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4010 A) (B-REF4012 B))
      (%%CPOTRS UPLO N-REF4008 NRHS-REF4009 A-REF4010 LDA-REF4011 B-REF4012
       LDB-REF4013 INFO-REF4014))))

(CFFI:DEFCFUN ("cppcon_" %%CPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPCON (UPLO N AP ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4016 ':INT32) (ANORM-REF4018 ':FLOAT)
                              (RCOND-REF4019 ':FLOAT) (INFO-REF4022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4016 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4018 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4019 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4022 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4017 AP) (WORK-REF4020 WORK)
                                            (RWORK-REF4021 RWORK))
      (%%CPPCON UPLO N-REF4016 AP-REF4017 ANORM-REF4018 RCOND-REF4019
       WORK-REF4020 RWORK-REF4021 INFO-REF4022))))

(CFFI:DEFCFUN ("cppequ_" %%CPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4024 ':INT32) (SCOND-REF4027 ':FLOAT)
                              (AMAX-REF4028 ':FLOAT) (INFO-REF4029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4027 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4028 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4029 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4025 AP) (S-REF4026 S))
      (%%CPPEQU UPLO N-REF4024 AP-REF4025 S-REF4026 SCOND-REF4027 AMAX-REF4028
       INFO-REF4029))))

(CFFI:DEFCFUN ("cpprfs_" %%CPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4031 ':INT32) (NRHS-REF4032 ':INT32)
                              (LDB-REF4036 ':INT32) (LDX-REF4038 ':INT32)
                              (INFO-REF4043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4032 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4036 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4038 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4043 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4033 AP) (AFP-REF4034 AFP)
                                            (B-REF4035 B) (X-REF4037 X)
                                            (FERR-REF4039 FERR)
                                            (BERR-REF4040 BERR)
                                            (WORK-REF4041 WORK)
                                            (RWORK-REF4042 RWORK))
      (%%CPPRFS UPLO N-REF4031 NRHS-REF4032 AP-REF4033 AFP-REF4034 B-REF4035
       LDB-REF4036 X-REF4037 LDX-REF4038 FERR-REF4039 BERR-REF4040 WORK-REF4041
       RWORK-REF4042 INFO-REF4043))))

(CFFI:DEFCFUN ("cppsv_" %%CPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4045 ':INT32) (NRHS-REF4046 ':INT32)
                              (LDB-REF4049 ':INT32) (INFO-REF4050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4045 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4046 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4049 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4047 AP) (B-REF4048 B))
      (%%CPPSV UPLO N-REF4045 NRHS-REF4046 AP-REF4047 B-REF4048 LDB-REF4049
       INFO-REF4050))))

(CFFI:DEFCFUN ("cppsvx_" %%CPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4053 ':INT32) (NRHS-REF4054 ':INT32)
                              (LDB-REF4060 ':INT32) (LDX-REF4062 ':INT32)
                              (RCOND-REF4063 ':FLOAT) (INFO-REF4068 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4053 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4054 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4060 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4062 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4063 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4068 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4055 AP) (AFP-REF4056 AFP)
                                            (S-REF4058 S) (B-REF4059 B)
                                            (X-REF4061 X) (FERR-REF4064 FERR)
                                            (BERR-REF4065 BERR)
                                            (WORK-REF4066 WORK)
                                            (RWORK-REF4067 RWORK))
      (%%CPPSVX FACT UPLO N-REF4053 NRHS-REF4054 AP-REF4055 AFP-REF4056 EQUED
       S-REF4058 B-REF4059 LDB-REF4060 X-REF4061 LDX-REF4062 RCOND-REF4063
       FERR-REF4064 BERR-REF4065 WORK-REF4066 RWORK-REF4067 INFO-REF4068))))

(CFFI:DEFCFUN ("cpptrf_" %%CPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4070 ':INT32) (INFO-REF4072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4070 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4071 AP))
      (%%CPPTRF UPLO N-REF4070 AP-REF4071 INFO-REF4072))))

(CFFI:DEFCFUN ("cpptri_" %%CPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4074 ':INT32) (INFO-REF4076 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4074 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4076 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4075 AP))
      (%%CPPTRI UPLO N-REF4074 AP-REF4075 INFO-REF4076))))

(CFFI:DEFCFUN ("cpptrs_" %%CPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4078 ':INT32) (NRHS-REF4079 ':INT32)
                              (LDB-REF4082 ':INT32) (INFO-REF4083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4078 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4079 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4082 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4080 AP) (B-REF4081 B))
      (%%CPPTRS UPLO N-REF4078 NRHS-REF4079 AP-REF4080 B-REF4081 LDB-REF4082
       INFO-REF4083))))

(CFFI:DEFCFUN ("cpstf2_" %%CPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4085 ':INT32) (LDA-REF4087 ':INT32)
                              (RANK-REF4089 ':INT32) (TOL-REF4090 ':FLOAT)
                              (INFO-REF4092 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4087 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4089 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4090 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4092 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4086 A) (PIV-REF4088 PIV)
                                            (WORK-REF4091 WORK))
      (%%CPSTF2 UPLO N-REF4085 A-REF4086 LDA-REF4087 PIV-REF4088 RANK-REF4089
       TOL-REF4090 WORK-REF4091 INFO-REF4092))))

(CFFI:DEFCFUN ("cpstrf_" %%CPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4094 ':INT32) (LDA-REF4096 ':INT32)
                              (RANK-REF4098 ':INT32) (TOL-REF4099 ':FLOAT)
                              (INFO-REF4101 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4094 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4096 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4098 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4099 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4101 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4095 A) (PIV-REF4097 PIV)
                                            (WORK-REF4100 WORK))
      (%%CPSTRF UPLO N-REF4094 A-REF4095 LDA-REF4096 PIV-REF4097 RANK-REF4098
       TOL-REF4099 WORK-REF4100 INFO-REF4101))))

(CFFI:DEFCFUN ("cptcon_" %%CPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTCON (N D E ANORM RCOND RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4102 ':INT32) (ANORM-REF4105 ':FLOAT)
                              (RCOND-REF4106 ':FLOAT) (INFO-REF4108 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4102 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4105 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4106 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4108 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4103 D) (E-REF4104 E)
                                            (RWORK-REF4107 RWORK))
      (%%CPTCON N-REF4102 D-REF4103 E-REF4104 ANORM-REF4105 RCOND-REF4106
       RWORK-REF4107 INFO-REF4108))))

(CFFI:DEFCFUN ("cpteqr_" %%CPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4110 ':INT32) (LDZ-REF4114 ':INT32)
                              (INFO-REF4116 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4114 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4116 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4111 D) (E-REF4112 E)
                                            (Z-REF4113 Z) (WORK-REF4115 WORK))
      (%%CPTEQR COMPZ N-REF4110 D-REF4111 E-REF4112 Z-REF4113 LDZ-REF4114
       WORK-REF4115 INFO-REF4116))))

(CFFI:DEFCFUN ("cptrfs_" %%CPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTRFS
                   (UPLO N NRHS D E DF EF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4118 ':INT32) (NRHS-REF4119 ':INT32)
                              (LDB-REF4125 ':INT32) (LDX-REF4127 ':INT32)
                              (INFO-REF4132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4118 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4119 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4125 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4127 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4132 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4120 D) (E-REF4121 E)
                                            (DF-REF4122 DF) (EF-REF4123 EF)
                                            (B-REF4124 B) (X-REF4126 X)
                                            (FERR-REF4128 FERR)
                                            (BERR-REF4129 BERR)
                                            (WORK-REF4130 WORK)
                                            (RWORK-REF4131 RWORK))
      (%%CPTRFS UPLO N-REF4118 NRHS-REF4119 D-REF4120 E-REF4121 DF-REF4122
       EF-REF4123 B-REF4124 LDB-REF4125 X-REF4126 LDX-REF4127 FERR-REF4128
       BERR-REF4129 WORK-REF4130 RWORK-REF4131 INFO-REF4132))))

(CFFI:DEFCFUN ("cptsv_" %%CPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4133 ':INT32) (NRHS-REF4134 ':INT32)
                              (LDB-REF4138 ':INT32) (INFO-REF4139 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4133 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4134 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4138 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4139 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4135 D) (E-REF4136 E)
                                            (B-REF4137 B))
      (%%CPTSV N-REF4133 NRHS-REF4134 D-REF4135 E-REF4136 B-REF4137 LDB-REF4138
       INFO-REF4139))))

(CFFI:DEFCFUN ("cptsvx_" %%CPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4141 ':INT32) (NRHS-REF4142 ':INT32)
                              (LDB-REF4148 ':INT32) (LDX-REF4150 ':INT32)
                              (RCOND-REF4151 ':FLOAT) (INFO-REF4156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4142 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4148 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4150 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4151 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4143 D) (E-REF4144 E)
                                            (DF-REF4145 DF) (EF-REF4146 EF)
                                            (B-REF4147 B) (X-REF4149 X)
                                            (FERR-REF4152 FERR)
                                            (BERR-REF4153 BERR)
                                            (WORK-REF4154 WORK)
                                            (RWORK-REF4155 RWORK))
      (%%CPTSVX FACT N-REF4141 NRHS-REF4142 D-REF4143 E-REF4144 DF-REF4145
       EF-REF4146 B-REF4147 LDB-REF4148 X-REF4149 LDX-REF4150 RCOND-REF4151
       FERR-REF4152 BERR-REF4153 WORK-REF4154 RWORK-REF4155 INFO-REF4156))))

(CFFI:DEFCFUN ("cpttrf_" %%CPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4157 ':INT32) (INFO-REF4160 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4157 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4160 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4158 D) (E-REF4159 E))
      (%%CPTTRF N-REF4157 D-REF4158 E-REF4159 INFO-REF4160))))

(CFFI:DEFCFUN ("cpttrs_" %%CPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTTRS (UPLO N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4162 ':INT32) (NRHS-REF4163 ':INT32)
                              (LDB-REF4167 ':INT32) (INFO-REF4168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4162 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4163 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4167 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4168 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4164 D) (E-REF4165 E)
                                            (B-REF4166 B))
      (%%CPTTRS UPLO N-REF4162 NRHS-REF4163 D-REF4164 E-REF4165 B-REF4166
       LDB-REF4167 INFO-REF4168))))

(CFFI:DEFCFUN ("cptts2_" %%CPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IUPLO :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CPTTS2 (IUPLO N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IUPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF4169 ':INT32) (N-REF4170 ':INT32)
                              (NRHS-REF4171 ':INT32) (LDB-REF4175 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF4169 :INT32) IUPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4171 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4175 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4172 D) (E-REF4173 E)
                                            (B-REF4174 B))
      (%%CPTTS2 IUPLO-REF4169 N-REF4170 NRHS-REF4171 D-REF4172 E-REF4173
       B-REF4174 LDB-REF4175))))

(CFFI:DEFCFUN ("crot_" %%CROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4176 ':INT32) (INCX-REF4178 ':INT32)
                              (INCY-REF4180 ':INT32) (C-REF4181 ':FLOAT)
                              (S-REF4182
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4176 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4178 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4180 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF4181 :FLOAT) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF4182 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF4177 CX) (CY-REF4179 CY))
      (%%CROT N-REF4176 CX-REF4177 INCX-REF4178 CY-REF4179 INCY-REF4180
       C-REF4181 S-REF4182))))

(CFFI:DEFCFUN ("cspcon_" %%CSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4184 ':INT32) (ANORM-REF4187 ':FLOAT)
                              (RCOND-REF4188 ':FLOAT) (INFO-REF4190 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4187 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4188 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4190 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4185 AP) (IPIV-REF4186 IPIV)
                                            (WORK-REF4189 WORK))
      (%%CSPCON UPLO N-REF4184 AP-REF4185 IPIV-REF4186 ANORM-REF4187
       RCOND-REF4188 WORK-REF4189 INFO-REF4190))))

(CFFI:DEFCFUN ("cspmv_" %%CSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4192 ':INT32)
                              (ALPHA-REF4193
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4196 ':INT32)
                              (BETA-REF4197
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF4199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4192 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4193
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4196 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF4197
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4199 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4194 AP) (X-REF4195 X)
                                            (Y-REF4198 Y))
      (%%CSPMV UPLO N-REF4192 ALPHA-REF4193 AP-REF4194 X-REF4195 INCX-REF4196
       BETA-REF4197 Y-REF4198 INCY-REF4199))))

(CFFI:DEFCFUN ("cspr_" %%CSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %CSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4201 ':INT32)
                              (ALPHA-REF4202
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4204 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4201 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4202
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4204 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4203 X) (AP-REF4205 AP))
      (%%CSPR UPLO N-REF4201 ALPHA-REF4202 X-REF4203 INCX-REF4204 AP-REF4205))))

(CFFI:DEFCFUN ("csprfs_" %%CSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4207 ':INT32) (NRHS-REF4208 ':INT32)
                              (LDB-REF4213 ':INT32) (LDX-REF4215 ':INT32)
                              (INFO-REF4220 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4207 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4208 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4213 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4215 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4220 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4209 AP) (AFP-REF4210 AFP)
                                            (IPIV-REF4211 IPIV) (B-REF4212 B)
                                            (X-REF4214 X) (FERR-REF4216 FERR)
                                            (BERR-REF4217 BERR)
                                            (WORK-REF4218 WORK)
                                            (RWORK-REF4219 RWORK))
      (%%CSPRFS UPLO N-REF4207 NRHS-REF4208 AP-REF4209 AFP-REF4210 IPIV-REF4211
       B-REF4212 LDB-REF4213 X-REF4214 LDX-REF4215 FERR-REF4216 BERR-REF4217
       WORK-REF4218 RWORK-REF4219 INFO-REF4220))))

(CFFI:DEFCFUN ("cspsv_" %%CSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4222 ':INT32) (NRHS-REF4223 ':INT32)
                              (LDB-REF4227 ':INT32) (INFO-REF4228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4223 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4227 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4228 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4224 AP) (IPIV-REF4225 IPIV)
                                            (B-REF4226 B))
      (%%CSPSV UPLO N-REF4222 NRHS-REF4223 AP-REF4224 IPIV-REF4225 B-REF4226
       LDB-REF4227 INFO-REF4228))))

(CFFI:DEFCFUN ("cspsvx_" %%CSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4231 ':INT32) (NRHS-REF4232 ':INT32)
                              (LDB-REF4237 ':INT32) (LDX-REF4239 ':INT32)
                              (RCOND-REF4240 ':FLOAT) (INFO-REF4245 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4231 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4232 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4237 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4239 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4240 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4245 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4233 AP) (AFP-REF4234 AFP)
                                            (IPIV-REF4235 IPIV) (B-REF4236 B)
                                            (X-REF4238 X) (FERR-REF4241 FERR)
                                            (BERR-REF4242 BERR)
                                            (WORK-REF4243 WORK)
                                            (RWORK-REF4244 RWORK))
      (%%CSPSVX FACT UPLO N-REF4231 NRHS-REF4232 AP-REF4233 AFP-REF4234
       IPIV-REF4235 B-REF4236 LDB-REF4237 X-REF4238 LDX-REF4239 RCOND-REF4240
       FERR-REF4241 BERR-REF4242 WORK-REF4243 RWORK-REF4244 INFO-REF4245))))

(CFFI:DEFCFUN ("csptrf_" %%CSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4247 ':INT32) (INFO-REF4250 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4247 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4250 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4248 AP) (IPIV-REF4249 IPIV))
      (%%CSPTRF UPLO N-REF4247 AP-REF4248 IPIV-REF4249 INFO-REF4250))))

(CFFI:DEFCFUN ("csptri_" %%CSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4252 ':INT32) (INFO-REF4256 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4252 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4256 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4253 AP) (IPIV-REF4254 IPIV)
                                            (WORK-REF4255 WORK))
      (%%CSPTRI UPLO N-REF4252 AP-REF4253 IPIV-REF4254 WORK-REF4255
       INFO-REF4256))))

(CFFI:DEFCFUN ("csptrs_" %%CSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4258 ':INT32) (NRHS-REF4259 ':INT32)
                              (LDB-REF4263 ':INT32) (INFO-REF4264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4258 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4259 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4263 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4260 AP) (IPIV-REF4261 IPIV)
                                            (B-REF4262 B))
      (%%CSPTRS UPLO N-REF4258 NRHS-REF4259 AP-REF4260 IPIV-REF4261 B-REF4262
       LDB-REF4263 INFO-REF4264))))

(CFFI:DEFCFUN ("csrscl_" %%CSRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CSRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4265 ':INT32) (SA-REF4266 ':FLOAT)
                              (INCX-REF4268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF4266 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4268 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF4267 SX))
      (%%CSRSCL N-REF4265 SA-REF4266 SX-REF4267 INCX-REF4268))))

(CFFI:DEFCFUN ("cstedc_" %%CSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEDC
                   (COMPZ N D E Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4270 ':INT32) (LDZ-REF4274 ':INT32)
                              (LWORK-REF4276 ':INT32) (LRWORK-REF4278 ':INT32)
                              (LIWORK-REF4280 ':INT32) (INFO-REF4281 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4270 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4274 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4276 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF4278 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4280 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4281 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4271 D) (E-REF4272 E)
                                            (Z-REF4273 Z) (WORK-REF4275 WORK)
                                            (RWORK-REF4277 RWORK)
                                            (IWORK-REF4279 IWORK))
      (%%CSTEDC COMPZ N-REF4270 D-REF4271 E-REF4272 Z-REF4273 LDZ-REF4274
       WORK-REF4275 LWORK-REF4276 RWORK-REF4277 LRWORK-REF4278 IWORK-REF4279
       LIWORK-REF4280 INFO-REF4281))))

(CFFI:DEFCFUN ("cstegr_" %%CSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4284 ':INT32) (VL-REF4287 ':FLOAT)
                              (VU-REF4288 ':FLOAT) (IL-REF4289 ':INT32)
                              (IU-REF4290 ':INT32) (ABSTOL-REF4291 ':FLOAT)
                              (M-REF4292 ':INT32) (LDZ-REF4295 ':INT32)
                              (LWORK-REF4298 ':INT32) (LIWORK-REF4300 ':INT32)
                              (INFO-REF4301 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4284 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4287 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4288 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4289 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4290 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4291 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4292 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4295 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4298 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4300 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4301 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4285 D) (E-REF4286 E)
                                            (W-REF4293 W) (Z-REF4294 Z)
                                            (ISUPPZ-REF4296 ISUPPZ)
                                            (WORK-REF4297 WORK)
                                            (IWORK-REF4299 IWORK))
      (%%CSTEGR JOBZ RANGE N-REF4284 D-REF4285 E-REF4286 VL-REF4287 VU-REF4288
       IL-REF4289 IU-REF4290 ABSTOL-REF4291 M-REF4292 W-REF4293 Z-REF4294
       LDZ-REF4295 ISUPPZ-REF4296 WORK-REF4297 LWORK-REF4298 IWORK-REF4299
       LIWORK-REF4300 INFO-REF4301))))

(CFFI:DEFCFUN ("cstein_" %%CSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4302 ':INT32) (M-REF4305 ':INT32)
                              (LDZ-REF4310 ':INT32) (INFO-REF4314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4305 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4310 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4303 D) (E-REF4304 E)
                                            (W-REF4306 W)
                                            (IBLOCK-REF4307 IBLOCK)
                                            (ISPLIT-REF4308 ISPLIT)
                                            (Z-REF4309 Z) (WORK-REF4311 WORK)
                                            (IWORK-REF4312 IWORK)
                                            (IFAIL-REF4313 IFAIL))
      (%%CSTEIN N-REF4302 D-REF4303 E-REF4304 M-REF4305 W-REF4306
       IBLOCK-REF4307 ISPLIT-REF4308 Z-REF4309 LDZ-REF4310 WORK-REF4311
       IWORK-REF4312 IFAIL-REF4313 INFO-REF4314))))

(CFFI:DEFCFUN ("cstemr_" %%CSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4317 ':INT32) (VL-REF4320 ':FLOAT)
                              (VU-REF4321 ':FLOAT) (IL-REF4322 ':INT32)
                              (IU-REF4323 ':INT32) (M-REF4324 ':INT32)
                              (LDZ-REF4327 ':INT32) (NZC-REF4328 ':INT32)
                              (TRYRAC-REF4330 ':INT32) (LWORK-REF4332 ':INT32)
                              (LIWORK-REF4334 ':INT32) (INFO-REF4335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4317 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4320 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4321 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4322 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4323 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4324 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4327 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF4328 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF4330 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4332 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4334 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4318 D) (E-REF4319 E)
                                            (W-REF4325 W) (Z-REF4326 Z)
                                            (ISUPPZ-REF4329 ISUPPZ)
                                            (WORK-REF4331 WORK)
                                            (IWORK-REF4333 IWORK))
      (%%CSTEMR JOBZ RANGE N-REF4317 D-REF4318 E-REF4319 VL-REF4320 VU-REF4321
       IL-REF4322 IU-REF4323 M-REF4324 W-REF4325 Z-REF4326 LDZ-REF4327
       NZC-REF4328 ISUPPZ-REF4329 TRYRAC-REF4330 WORK-REF4331 LWORK-REF4332
       IWORK-REF4333 LIWORK-REF4334 INFO-REF4335))))

(CFFI:DEFCFUN ("csteqr_" %%CSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4337 ':INT32) (LDZ-REF4341 ':INT32)
                              (INFO-REF4343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4337 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4341 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4343 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4338 D) (E-REF4339 E)
                                            (Z-REF4340 Z) (WORK-REF4342 WORK))
      (%%CSTEQR COMPZ N-REF4337 D-REF4338 E-REF4339 Z-REF4340 LDZ-REF4341
       WORK-REF4342 INFO-REF4343))))

(CFFI:DEFCFUN ("csycon_" %%CSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4345 ':INT32) (LDA-REF4347 ':INT32)
                              (ANORM-REF4349 ':FLOAT) (RCOND-REF4350 ':FLOAT)
                              (INFO-REF4352 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4347 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4349 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4350 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4352 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4346 A) (IPIV-REF4348 IPIV)
                                            (WORK-REF4351 WORK))
      (%%CSYCON UPLO N-REF4345 A-REF4346 LDA-REF4347 IPIV-REF4348 ANORM-REF4349
       RCOND-REF4350 WORK-REF4351 INFO-REF4352))))

(CFFI:DEFCFUN ("csycon_3_" %%CSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4354 ':INT32) (LDA-REF4356 ':INT32)
                              (ANORM-REF4359 ':FLOAT) (RCOND-REF4360 ':FLOAT)
                              (INFO-REF4362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4356 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4359 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4360 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4355 A) (E-REF4357 E)
                                            (IPIV-REF4358 IPIV)
                                            (WORK-REF4361 WORK))
      (%%CSYCON_3 UPLO N-REF4354 A-REF4355 LDA-REF4356 E-REF4357 IPIV-REF4358
       ANORM-REF4359 RCOND-REF4360 WORK-REF4361 INFO-REF4362))))

(CFFI:DEFCFUN ("csycon_rook_" %%CSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4364 ':INT32) (LDA-REF4366 ':INT32)
                              (ANORM-REF4368 ':FLOAT) (RCOND-REF4369 ':FLOAT)
                              (INFO-REF4371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4366 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4368 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4369 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4365 A) (IPIV-REF4367 IPIV)
                                            (WORK-REF4370 WORK))
      (%%CSYCON_ROOK UPLO N-REF4364 A-REF4365 LDA-REF4366 IPIV-REF4367
       ANORM-REF4368 RCOND-REF4369 WORK-REF4370 INFO-REF4371))))

(CFFI:DEFCFUN ("csyconv_" %%CSYCONV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4374 ':INT32) (LDA-REF4376 ':INT32)
                              (INFO-REF4379 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4374 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4376 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4379 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4375 A) (IPIV-REF4377 IPIV)
                                            (E-REF4378 E))
      (%%CSYCONV UPLO WAY N-REF4374 A-REF4375 LDA-REF4376 IPIV-REF4377
       E-REF4378 INFO-REF4379))))

(CFFI:DEFCFUN ("csyconvf_" %%CSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4382 ':INT32) (LDA-REF4384 ':INT32)
                              (INFO-REF4387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4384 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4387 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4383 A) (E-REF4385 E)
                                            (IPIV-REF4386 IPIV))
      (%%CSYCONVF UPLO WAY N-REF4382 A-REF4383 LDA-REF4384 E-REF4385
       IPIV-REF4386 INFO-REF4387))))

(CFFI:DEFCFUN ("csyconvf_rook_" %%CSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4390 ':INT32) (LDA-REF4392 ':INT32)
                              (INFO-REF4395 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4390 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4392 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4395 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4391 A) (E-REF4393 E)
                                            (IPIV-REF4394 IPIV))
      (%%CSYCONVF_ROOK UPLO WAY N-REF4390 A-REF4391 LDA-REF4392 E-REF4393
       IPIV-REF4394 INFO-REF4395))))

(CFFI:DEFCFUN ("csyequb_" %%CSYEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4397 ':INT32) (LDA-REF4399 ':INT32)
                              (SCOND-REF4401 ':FLOAT) (AMAX-REF4402 ':FLOAT)
                              (INFO-REF4404 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4401 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4402 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4404 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4398 A) (S-REF4400 S)
                                            (WORK-REF4403 WORK))
      (%%CSYEQUB UPLO N-REF4397 A-REF4398 LDA-REF4399 S-REF4400 SCOND-REF4401
       AMAX-REF4402 WORK-REF4403 INFO-REF4404))))

(CFFI:DEFCFUN ("csymv_" %%CSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4406 ':INT32)
                              (ALPHA-REF4407
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF4409 ':INT32) (INCX-REF4411 ':INT32)
                              (BETA-REF4412
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF4414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4406 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4407
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4409 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4411 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF4412
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4414 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4408 A) (X-REF4410 X)
                                            (Y-REF4413 Y))
      (%%CSYMV UPLO N-REF4406 ALPHA-REF4407 A-REF4408 LDA-REF4409 X-REF4410
       INCX-REF4411 BETA-REF4412 Y-REF4413 INCY-REF4414))))

(CFFI:DEFCFUN ("csyr_" %%CSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4416 ':INT32)
                              (ALPHA-REF4417
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4419 ':INT32) (LDA-REF4421 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4416 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4417
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4419 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4421 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4418 X) (A-REF4420 A))
      (%%CSYR UPLO N-REF4416 ALPHA-REF4417 X-REF4418 INCX-REF4419 A-REF4420
       LDA-REF4421))))

(CFFI:DEFCFUN ("csyrfs_" %%CSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4423 ':INT32) (NRHS-REF4424 ':INT32)
                              (LDA-REF4426 ':INT32) (LDAF-REF4428 ':INT32)
                              (LDB-REF4431 ':INT32) (LDX-REF4433 ':INT32)
                              (INFO-REF4438 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4423 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4424 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4426 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4428 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4431 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4433 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4438 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4425 A) (AF-REF4427 AF)
                                            (IPIV-REF4429 IPIV) (B-REF4430 B)
                                            (X-REF4432 X) (FERR-REF4434 FERR)
                                            (BERR-REF4435 BERR)
                                            (WORK-REF4436 WORK)
                                            (RWORK-REF4437 RWORK))
      (%%CSYRFS UPLO N-REF4423 NRHS-REF4424 A-REF4425 LDA-REF4426 AF-REF4427
       LDAF-REF4428 IPIV-REF4429 B-REF4430 LDB-REF4431 X-REF4432 LDX-REF4433
       FERR-REF4434 BERR-REF4435 WORK-REF4436 RWORK-REF4437 INFO-REF4438))))

(CFFI:DEFCFUN ("csyrfsx_" %%CSYRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4441 ':INT32) (NRHS-REF4442 ':INT32)
                              (LDA-REF4444 ':INT32) (LDAF-REF4446 ':INT32)
                              (LDB-REF4450 ':INT32) (LDX-REF4452 ':INT32)
                              (RCOND-REF4453 ':FLOAT)
                              (N_ERR_BNDS-REF4455 ':INT32)
                              (NPARAMS-REF4458 ':INT32) (INFO-REF4462 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4442 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4444 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4446 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4450 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4452 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4453 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4455 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4458 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4462 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4443 A) (AF-REF4445 AF)
                                            (IPIV-REF4447 IPIV) (S-REF4448 S)
                                            (B-REF4449 B) (X-REF4451 X)
                                            (BERR-REF4454 BERR)
                                            (ERR_BNDS_NORM-REF4456
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4457
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF4459 PARAMS)
                                            (WORK-REF4460 WORK)
                                            (RWORK-REF4461 RWORK))
      (%%CSYRFSX UPLO EQUED N-REF4441 NRHS-REF4442 A-REF4443 LDA-REF4444
       AF-REF4445 LDAF-REF4446 IPIV-REF4447 S-REF4448 B-REF4449 LDB-REF4450
       X-REF4451 LDX-REF4452 RCOND-REF4453 BERR-REF4454 N_ERR_BNDS-REF4455
       ERR_BNDS_NORM-REF4456 ERR_BNDS_COMP-REF4457 NPARAMS-REF4458
       PARAMS-REF4459 WORK-REF4460 RWORK-REF4461 INFO-REF4462))))

(CFFI:DEFCFUN ("csysv_" %%CSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4464 ':INT32) (NRHS-REF4465 ':INT32)
                              (LDA-REF4467 ':INT32) (LDB-REF4470 ':INT32)
                              (LWORK-REF4472 ':INT32) (INFO-REF4473 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4464 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4465 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4467 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4470 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4472 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4473 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4466 A) (IPIV-REF4468 IPIV)
                                            (B-REF4469 B) (WORK-REF4471 WORK))
      (%%CSYSV UPLO N-REF4464 NRHS-REF4465 A-REF4466 LDA-REF4467 IPIV-REF4468
       B-REF4469 LDB-REF4470 WORK-REF4471 LWORK-REF4472 INFO-REF4473))))

(CFFI:DEFCFUN ("csysv_aa_" %%CSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4475 ':INT32) (NRHS-REF4476 ':INT32)
                              (LDA-REF4478 ':INT32) (LDB-REF4481 ':INT32)
                              (LWORK-REF4483 ':INT32) (INFO-REF4484 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4475 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4476 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4478 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4481 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4483 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4484 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4477 A) (IPIV-REF4479 IPIV)
                                            (B-REF4480 B) (WORK-REF4482 WORK))
      (%%CSYSV_AA UPLO N-REF4475 NRHS-REF4476 A-REF4477 LDA-REF4478
       IPIV-REF4479 B-REF4480 LDB-REF4481 WORK-REF4482 LWORK-REF4483
       INFO-REF4484))))

(CFFI:DEFCFUN ("csysv_aa_2stage_" %%CSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4486 ':INT32) (NRHS-REF4487 ':INT32)
                              (LDA-REF4489 ':INT32) (LTB-REF4491 ':INT32)
                              (LDB-REF4495 ':INT32) (LWORK-REF4497 ':INT32)
                              (INFO-REF4498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4486 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4487 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4489 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4491 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4495 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4497 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4488 A) (TB-REF4490 TB)
                                            (IPIV-REF4492 IPIV)
                                            (IPIV2-REF4493 IPIV2) (B-REF4494 B)
                                            (WORK-REF4496 WORK))
      (%%CSYSV_AA_2STAGE UPLO N-REF4486 NRHS-REF4487 A-REF4488 LDA-REF4489
       TB-REF4490 LTB-REF4491 IPIV-REF4492 IPIV2-REF4493 B-REF4494 LDB-REF4495
       WORK-REF4496 LWORK-REF4497 INFO-REF4498))))

(CFFI:DEFCFUN ("csysv_rk_" %%CSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4500 ':INT32) (NRHS-REF4501 ':INT32)
                              (LDA-REF4503 ':INT32) (LDB-REF4507 ':INT32)
                              (LWORK-REF4509 ':INT32) (INFO-REF4510 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4501 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4503 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4507 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4509 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4510 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4502 A) (E-REF4504 E)
                                            (IPIV-REF4505 IPIV) (B-REF4506 B)
                                            (WORK-REF4508 WORK))
      (%%CSYSV_RK UPLO N-REF4500 NRHS-REF4501 A-REF4502 LDA-REF4503 E-REF4504
       IPIV-REF4505 B-REF4506 LDB-REF4507 WORK-REF4508 LWORK-REF4509
       INFO-REF4510))))

(CFFI:DEFCFUN ("csysv_rook_" %%CSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4512 ':INT32) (NRHS-REF4513 ':INT32)
                              (LDA-REF4515 ':INT32) (LDB-REF4518 ':INT32)
                              (LWORK-REF4520 ':INT32) (INFO-REF4521 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4512 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4513 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4515 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4518 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4520 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4521 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4514 A) (IPIV-REF4516 IPIV)
                                            (B-REF4517 B) (WORK-REF4519 WORK))
      (%%CSYSV_ROOK UPLO N-REF4512 NRHS-REF4513 A-REF4514 LDA-REF4515
       IPIV-REF4516 B-REF4517 LDB-REF4518 WORK-REF4519 LWORK-REF4520
       INFO-REF4521))))

(CFFI:DEFCFUN ("csysvx_" %%CSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4524 ':INT32) (NRHS-REF4525 ':INT32)
                              (LDA-REF4527 ':INT32) (LDAF-REF4529 ':INT32)
                              (LDB-REF4532 ':INT32) (LDX-REF4534 ':INT32)
                              (RCOND-REF4535 ':FLOAT) (LWORK-REF4539 ':INT32)
                              (INFO-REF4541 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4524 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4525 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4527 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4529 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4532 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4534 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4535 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4539 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4541 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4526 A) (AF-REF4528 AF)
                                            (IPIV-REF4530 IPIV) (B-REF4531 B)
                                            (X-REF4533 X) (FERR-REF4536 FERR)
                                            (BERR-REF4537 BERR)
                                            (WORK-REF4538 WORK)
                                            (RWORK-REF4540 RWORK))
      (%%CSYSVX FACT UPLO N-REF4524 NRHS-REF4525 A-REF4526 LDA-REF4527
       AF-REF4528 LDAF-REF4529 IPIV-REF4530 B-REF4531 LDB-REF4532 X-REF4533
       LDX-REF4534 RCOND-REF4535 FERR-REF4536 BERR-REF4537 WORK-REF4538
       LWORK-REF4539 RWORK-REF4540 INFO-REF4541))))

(CFFI:DEFCFUN ("csysvxx_" %%CSYSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4544 ':INT32) (NRHS-REF4545 ':INT32)
                              (LDA-REF4547 ':INT32) (LDAF-REF4549 ':INT32)
                              (LDB-REF4554 ':INT32) (LDX-REF4556 ':INT32)
                              (RCOND-REF4557 ':FLOAT) (RPVGRW-REF4558 ':FLOAT)
                              (N_ERR_BNDS-REF4560 ':INT32)
                              (NPARAMS-REF4563 ':INT32) (INFO-REF4567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4545 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4547 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4549 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4554 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4556 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4557 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4558 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4560 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4563 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4546 A) (AF-REF4548 AF)
                                            (IPIV-REF4550 IPIV) (S-REF4552 S)
                                            (B-REF4553 B) (X-REF4555 X)
                                            (BERR-REF4559 BERR)
                                            (ERR_BNDS_NORM-REF4561
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4562
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF4564 PARAMS)
                                            (WORK-REF4565 WORK)
                                            (RWORK-REF4566 RWORK))
      (%%CSYSVXX FACT UPLO N-REF4544 NRHS-REF4545 A-REF4546 LDA-REF4547
       AF-REF4548 LDAF-REF4549 IPIV-REF4550 EQUED S-REF4552 B-REF4553
       LDB-REF4554 X-REF4555 LDX-REF4556 RCOND-REF4557 RPVGRW-REF4558
       BERR-REF4559 N_ERR_BNDS-REF4560 ERR_BNDS_NORM-REF4561
       ERR_BNDS_COMP-REF4562 NPARAMS-REF4563 PARAMS-REF4564 WORK-REF4565
       RWORK-REF4566 INFO-REF4567))))

(CFFI:DEFCFUN ("csyswapr_" %%CSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %CSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4569 ':INT32) (LDA-REF4571 ':INT32)
                              (I1-REF4572 ':INT32) (I2-REF4573 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4571 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF4572 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF4573 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4570 A))
      (%%CSYSWAPR UPLO N-REF4569 A-REF4570 LDA-REF4571 I1-REF4572 I2-REF4573))))

(CFFI:DEFCFUN ("csytf2_" %%CSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4575 ':INT32) (LDA-REF4577 ':INT32)
                              (INFO-REF4579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4575 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4577 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4579 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4576 A) (IPIV-REF4578 IPIV))
      (%%CSYTF2 UPLO N-REF4575 A-REF4576 LDA-REF4577 IPIV-REF4578
       INFO-REF4579))))

(CFFI:DEFCFUN ("csytf2_rk_" %%CSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4581 ':INT32) (LDA-REF4583 ':INT32)
                              (INFO-REF4586 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4583 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4586 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4582 A) (E-REF4584 E)
                                            (IPIV-REF4585 IPIV))
      (%%CSYTF2_RK UPLO N-REF4581 A-REF4582 LDA-REF4583 E-REF4584 IPIV-REF4585
       INFO-REF4586))))

(CFFI:DEFCFUN ("csytf2_rook_" %%CSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4588 ':INT32) (LDA-REF4590 ':INT32)
                              (INFO-REF4592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4588 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4590 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4589 A) (IPIV-REF4591 IPIV))
      (%%CSYTF2_ROOK UPLO N-REF4588 A-REF4589 LDA-REF4590 IPIV-REF4591
       INFO-REF4592))))

(CFFI:DEFCFUN ("csytrf_" %%CSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4594 ':INT32) (LDA-REF4596 ':INT32)
                              (LWORK-REF4599 ':INT32) (INFO-REF4600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4596 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4599 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4595 A) (IPIV-REF4597 IPIV)
                                            (WORK-REF4598 WORK))
      (%%CSYTRF UPLO N-REF4594 A-REF4595 LDA-REF4596 IPIV-REF4597 WORK-REF4598
       LWORK-REF4599 INFO-REF4600))))

(CFFI:DEFCFUN ("csytrf_aa_" %%CSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4602 ':INT32) (LDA-REF4604 ':INT32)
                              (LWORK-REF4607 ':INT32) (INFO-REF4608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4604 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4607 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4608 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4603 A) (IPIV-REF4605 IPIV)
                                            (WORK-REF4606 WORK))
      (%%CSYTRF_AA UPLO N-REF4602 A-REF4603 LDA-REF4604 IPIV-REF4605
       WORK-REF4606 LWORK-REF4607 INFO-REF4608))))

(CFFI:DEFCFUN ("csytrf_aa_2stage_" %%CSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4610 ':INT32) (LDA-REF4612 ':INT32)
                              (LTB-REF4614 ':INT32) (LWORK-REF4618 ':INT32)
                              (INFO-REF4619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4612 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4614 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4618 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4619 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4611 A) (TB-REF4613 TB)
                                            (IPIV-REF4615 IPIV)
                                            (IPIV2-REF4616 IPIV2)
                                            (WORK-REF4617 WORK))
      (%%CSYTRF_AA_2STAGE UPLO N-REF4610 A-REF4611 LDA-REF4612 TB-REF4613
       LTB-REF4614 IPIV-REF4615 IPIV2-REF4616 WORK-REF4617 LWORK-REF4618
       INFO-REF4619))))

(CFFI:DEFCFUN ("csytrf_rk_" %%CSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4621 ':INT32) (LDA-REF4623 ':INT32)
                              (LWORK-REF4627 ':INT32) (INFO-REF4628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4623 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4627 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4628 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4622 A) (E-REF4624 E)
                                            (IPIV-REF4625 IPIV)
                                            (WORK-REF4626 WORK))
      (%%CSYTRF_RK UPLO N-REF4621 A-REF4622 LDA-REF4623 E-REF4624 IPIV-REF4625
       WORK-REF4626 LWORK-REF4627 INFO-REF4628))))

(CFFI:DEFCFUN ("csytrf_rook_" %%CSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4630 ':INT32) (LDA-REF4632 ':INT32)
                              (LWORK-REF4635 ':INT32) (INFO-REF4636 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4632 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4635 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4636 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4631 A) (IPIV-REF4633 IPIV)
                                            (WORK-REF4634 WORK))
      (%%CSYTRF_ROOK UPLO N-REF4630 A-REF4631 LDA-REF4632 IPIV-REF4633
       WORK-REF4634 LWORK-REF4635 INFO-REF4636))))

(CFFI:DEFCFUN ("csytri_" %%CSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4638 ':INT32) (LDA-REF4640 ':INT32)
                              (INFO-REF4643 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4640 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4643 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4639 A) (IPIV-REF4641 IPIV)
                                            (WORK-REF4642 WORK))
      (%%CSYTRI UPLO N-REF4638 A-REF4639 LDA-REF4640 IPIV-REF4641 WORK-REF4642
       INFO-REF4643))))

(CFFI:DEFCFUN ("csytri2_" %%CSYTRI2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4645 ':INT32) (LDA-REF4647 ':INT32)
                              (LWORK-REF4650 ':INT32) (INFO-REF4651 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4645 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4647 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4650 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4651 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4646 A) (IPIV-REF4648 IPIV)
                                            (WORK-REF4649 WORK))
      (%%CSYTRI2 UPLO N-REF4645 A-REF4646 LDA-REF4647 IPIV-REF4648 WORK-REF4649
       LWORK-REF4650 INFO-REF4651))))

(CFFI:DEFCFUN ("csytri2x_" %%CSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4653 ':INT32) (LDA-REF4655 ':INT32)
                              (NB-REF4658 ':INT32) (INFO-REF4659 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4655 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4658 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4659 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4654 A) (IPIV-REF4656 IPIV)
                                            (WORK-REF4657 WORK))
      (%%CSYTRI2X UPLO N-REF4653 A-REF4654 LDA-REF4655 IPIV-REF4656
       WORK-REF4657 NB-REF4658 INFO-REF4659))))

(CFFI:DEFCFUN ("csytri_3_" %%CSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4661 ':INT32) (LDA-REF4663 ':INT32)
                              (LWORK-REF4667 ':INT32) (INFO-REF4668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4661 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4663 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4667 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4662 A) (E-REF4664 E)
                                            (IPIV-REF4665 IPIV)
                                            (WORK-REF4666 WORK))
      (%%CSYTRI_3 UPLO N-REF4661 A-REF4662 LDA-REF4663 E-REF4664 IPIV-REF4665
       WORK-REF4666 LWORK-REF4667 INFO-REF4668))))

(CFFI:DEFCFUN ("csytri_3x_" %%CSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4670 ':INT32) (LDA-REF4672 ':INT32)
                              (NB-REF4676 ':INT32) (INFO-REF4677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4672 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4676 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4677 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4671 A) (E-REF4673 E)
                                            (IPIV-REF4674 IPIV)
                                            (WORK-REF4675 WORK))
      (%%CSYTRI_3X UPLO N-REF4670 A-REF4671 LDA-REF4672 E-REF4673 IPIV-REF4674
       WORK-REF4675 NB-REF4676 INFO-REF4677))))

(CFFI:DEFCFUN ("csytri_rook_" %%CSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4679 ':INT32) (LDA-REF4681 ':INT32)
                              (INFO-REF4684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4681 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4684 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4680 A) (IPIV-REF4682 IPIV)
                                            (WORK-REF4683 WORK))
      (%%CSYTRI_ROOK UPLO N-REF4679 A-REF4680 LDA-REF4681 IPIV-REF4682
       WORK-REF4683 INFO-REF4684))))

(CFFI:DEFCFUN ("csytrs_" %%CSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4686 ':INT32) (NRHS-REF4687 ':INT32)
                              (LDA-REF4689 ':INT32) (LDB-REF4692 ':INT32)
                              (INFO-REF4693 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4686 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4687 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4689 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4692 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4693 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4688 A) (IPIV-REF4690 IPIV)
                                            (B-REF4691 B))
      (%%CSYTRS UPLO N-REF4686 NRHS-REF4687 A-REF4688 LDA-REF4689 IPIV-REF4690
       B-REF4691 LDB-REF4692 INFO-REF4693))))

(CFFI:DEFCFUN ("csytrs2_" %%CSYTRS2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4695 ':INT32) (NRHS-REF4696 ':INT32)
                              (LDA-REF4698 ':INT32) (LDB-REF4701 ':INT32)
                              (INFO-REF4703 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4695 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4696 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4698 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4701 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4703 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4697 A) (IPIV-REF4699 IPIV)
                                            (B-REF4700 B) (WORK-REF4702 WORK))
      (%%CSYTRS2 UPLO N-REF4695 NRHS-REF4696 A-REF4697 LDA-REF4698 IPIV-REF4699
       B-REF4700 LDB-REF4701 WORK-REF4702 INFO-REF4703))))

(CFFI:DEFCFUN ("csytrs_3_" %%CSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4705 ':INT32) (NRHS-REF4706 ':INT32)
                              (LDA-REF4708 ':INT32) (LDB-REF4712 ':INT32)
                              (INFO-REF4713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4705 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4706 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4708 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4712 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4713 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4707 A) (E-REF4709 E)
                                            (IPIV-REF4710 IPIV) (B-REF4711 B))
      (%%CSYTRS_3 UPLO N-REF4705 NRHS-REF4706 A-REF4707 LDA-REF4708 E-REF4709
       IPIV-REF4710 B-REF4711 LDB-REF4712 INFO-REF4713))))

(CFFI:DEFCFUN ("csytrs_aa_" %%CSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4715 ':INT32) (NRHS-REF4716 ':INT32)
                              (LDA-REF4718 ':INT32) (LDB-REF4721 ':INT32)
                              (LWORK-REF4723 ':INT32) (INFO-REF4724 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4715 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4716 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4718 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4721 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4723 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4724 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4717 A) (IPIV-REF4719 IPIV)
                                            (B-REF4720 B) (WORK-REF4722 WORK))
      (%%CSYTRS_AA UPLO N-REF4715 NRHS-REF4716 A-REF4717 LDA-REF4718
       IPIV-REF4719 B-REF4720 LDB-REF4721 WORK-REF4722 LWORK-REF4723
       INFO-REF4724))))

(CFFI:DEFCFUN ("csytrs_aa_2stage_" %%CSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4726 ':INT32) (NRHS-REF4727 ':INT32)
                              (LDA-REF4729 ':INT32) (LTB-REF4731 ':INT32)
                              (LDB-REF4735 ':INT32) (INFO-REF4736 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4726 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4727 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4729 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4731 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4735 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4736 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4728 A) (TB-REF4730 TB)
                                            (IPIV-REF4732 IPIV)
                                            (IPIV2-REF4733 IPIV2) (B-REF4734 B))
      (%%CSYTRS_AA_2STAGE UPLO N-REF4726 NRHS-REF4727 A-REF4728 LDA-REF4729
       TB-REF4730 LTB-REF4731 IPIV-REF4732 IPIV2-REF4733 B-REF4734 LDB-REF4735
       INFO-REF4736))))

(CFFI:DEFCFUN ("csytrs_rook_" %%CSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4738 ':INT32) (NRHS-REF4739 ':INT32)
                              (LDA-REF4741 ':INT32) (LDB-REF4744 ':INT32)
                              (INFO-REF4745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4738 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4739 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4741 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4744 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4740 A) (IPIV-REF4742 IPIV)
                                            (B-REF4743 B))
      (%%CSYTRS_ROOK UPLO N-REF4738 NRHS-REF4739 A-REF4740 LDA-REF4741
       IPIV-REF4742 B-REF4743 LDB-REF4744 INFO-REF4745))))

(CFFI:DEFCFUN ("ctbcon_" %%CTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4749 ':INT32) (KD-REF4750 ':INT32)
                              (LDAB-REF4752 ':INT32) (RCOND-REF4753 ':FLOAT)
                              (INFO-REF4756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4749 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4750 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4752 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4753 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4751 AB) (WORK-REF4754 WORK)
                                            (RWORK-REF4755 RWORK))
      (%%CTBCON NORM UPLO DIAG N-REF4749 KD-REF4750 AB-REF4751 LDAB-REF4752
       RCOND-REF4753 WORK-REF4754 RWORK-REF4755 INFO-REF4756))))

(CFFI:DEFCFUN ("ctbrfs_" %%CTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4760 ':INT32) (KD-REF4761 ':INT32)
                              (NRHS-REF4762 ':INT32) (LDAB-REF4764 ':INT32)
                              (LDB-REF4766 ':INT32) (LDX-REF4768 ':INT32)
                              (INFO-REF4773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4760 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4761 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4762 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4764 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4766 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4768 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4763 AB) (B-REF4765 B)
                                            (X-REF4767 X) (FERR-REF4769 FERR)
                                            (BERR-REF4770 BERR)
                                            (WORK-REF4771 WORK)
                                            (RWORK-REF4772 RWORK))
      (%%CTBRFS UPLO TRANS DIAG N-REF4760 KD-REF4761 NRHS-REF4762 AB-REF4763
       LDAB-REF4764 B-REF4765 LDB-REF4766 X-REF4767 LDX-REF4768 FERR-REF4769
       BERR-REF4770 WORK-REF4771 RWORK-REF4772 INFO-REF4773))))

(CFFI:DEFCFUN ("ctbtrs_" %%CTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4777 ':INT32) (KD-REF4778 ':INT32)
                              (NRHS-REF4779 ':INT32) (LDAB-REF4781 ':INT32)
                              (LDB-REF4783 ':INT32) (INFO-REF4784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4777 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4778 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4779 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4781 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4783 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4784 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4780 AB) (B-REF4782 B))
      (%%CTBTRS UPLO TRANS DIAG N-REF4777 KD-REF4778 NRHS-REF4779 AB-REF4780
       LDAB-REF4781 B-REF4782 LDB-REF4783 INFO-REF4784))))

(CFFI:DEFCFUN ("ctfsm_" %%CTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CTFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4790 ':INT32) (N-REF4791 ':INT32)
                              (ALPHA-REF4792
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDB-REF4795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4790 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4791 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4792
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4795 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4793 A) (B-REF4794 B))
      (%%CTFSM TRANSR SIDE UPLO TRANS DIAG M-REF4790 N-REF4791 ALPHA-REF4792
       A-REF4793 B-REF4794 LDB-REF4795))))

(CFFI:DEFCFUN ("ctftri_" %%CTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4799 ':INT32) (INFO-REF4801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4799 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4800 A))
      (%%CTFTRI TRANSR UPLO DIAG N-REF4799 A-REF4800 INFO-REF4801))))

(CFFI:DEFCFUN ("ctfttp_" %%CTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4804 ':INT32) (INFO-REF4807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4804 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4807 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4805 ARF) (AP-REF4806 AP))
      (%%CTFTTP TRANSR UPLO N-REF4804 ARF-REF4805 AP-REF4806 INFO-REF4807))))

(CFFI:DEFCFUN ("ctfttr_" %%CTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4810 ':INT32) (LDA-REF4813 ':INT32)
                              (INFO-REF4814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4813 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4814 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4811 ARF) (A-REF4812 A))
      (%%CTFTTR TRANSR UPLO N-REF4810 ARF-REF4811 A-REF4812 LDA-REF4813
       INFO-REF4814))))

(CFFI:DEFCFUN ("ctgevc_" %%CTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4818 ':INT32) (LDS-REF4820 ':INT32)
                              (LDP-REF4822 ':INT32) (LDVL-REF4824 ':INT32)
                              (LDVR-REF4826 ':INT32) (MM-REF4827 ':INT32)
                              (M-REF4828 ':INT32) (INFO-REF4831 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4818 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF4820 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF4822 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4824 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4826 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4827 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4828 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4831 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4817 SELECT)
                                            (S-REF4819 S) (P-REF4821 P)
                                            (VL-REF4823 VL) (VR-REF4825 VR)
                                            (WORK-REF4829 WORK)
                                            (RWORK-REF4830 RWORK))
      (%%CTGEVC SIDE HOWMNY SELECT-REF4817 N-REF4818 S-REF4819 LDS-REF4820
       P-REF4821 LDP-REF4822 VL-REF4823 LDVL-REF4824 VR-REF4825 LDVR-REF4826
       MM-REF4827 M-REF4828 WORK-REF4829 RWORK-REF4830 INFO-REF4831))))

(CFFI:DEFCFUN ("ctgex2_" %%CTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGEX2 (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4832 ':INT32) (WANTZ-REF4833 ':INT32)
                              (N-REF4834 ':INT32) (LDA-REF4836 ':INT32)
                              (LDB-REF4838 ':INT32) (LDQ-REF4840 ':INT32)
                              (LDZ-REF4842 ':INT32) (J1-REF4843 ':INT32)
                              (INFO-REF4844 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4832 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4833 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4836 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4838 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4840 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4842 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF4843 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4844 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4835 A) (B-REF4837 B)
                                            (Q-REF4839 Q) (Z-REF4841 Z))
      (%%CTGEX2 WANTQ-REF4832 WANTZ-REF4833 N-REF4834 A-REF4835 LDA-REF4836
       B-REF4837 LDB-REF4838 Q-REF4839 LDQ-REF4840 Z-REF4841 LDZ-REF4842
       J1-REF4843 INFO-REF4844))))

(CFFI:DEFCFUN ("ctgexc_" %%CTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4845 ':INT32) (WANTZ-REF4846 ':INT32)
                              (N-REF4847 ':INT32) (LDA-REF4849 ':INT32)
                              (LDB-REF4851 ':INT32) (LDQ-REF4853 ':INT32)
                              (LDZ-REF4855 ':INT32) (IFST-REF4856 ':INT32)
                              (ILST-REF4857 ':INT32) (INFO-REF4858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4845 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4846 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4847 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4849 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4851 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4853 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4855 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF4856 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF4857 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4848 A) (B-REF4850 B)
                                            (Q-REF4852 Q) (Z-REF4854 Z))
      (%%CTGEXC WANTQ-REF4845 WANTZ-REF4846 N-REF4847 A-REF4848 LDA-REF4849
       B-REF4850 LDB-REF4851 Q-REF4852 LDQ-REF4853 Z-REF4854 LDZ-REF4855
       IFST-REF4856 ILST-REF4857 INFO-REF4858))))

(CFFI:DEFCFUN ("ctgsen_" %%CTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHA BETA Q LDQ Z
                    LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4859 ':INT32) (WANTQ-REF4860 ':INT32)
                              (WANTZ-REF4861 ':INT32) (N-REF4863 ':INT32)
                              (LDA-REF4865 ':INT32) (LDB-REF4867 ':INT32)
                              (LDQ-REF4871 ':INT32) (LDZ-REF4873 ':INT32)
                              (M-REF4874 ':INT32) (PL-REF4875 ':FLOAT)
                              (PR-REF4876 ':FLOAT) (LWORK-REF4879 ':INT32)
                              (LIWORK-REF4881 ':INT32) (INFO-REF4882 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4859 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4860 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4861 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4865 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4867 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4871 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4873 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4874 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF4875 :FLOAT) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF4876 :FLOAT) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4879 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4881 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4882 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4862 SELECT)
                                            (A-REF4864 A) (B-REF4866 B)
                                            (ALPHA-REF4868 ALPHA)
                                            (BETA-REF4869 BETA) (Q-REF4870 Q)
                                            (Z-REF4872 Z) (DIF-REF4877 DIF)
                                            (WORK-REF4878 WORK)
                                            (IWORK-REF4880 IWORK))
      (%%CTGSEN IJOB-REF4859 WANTQ-REF4860 WANTZ-REF4861 SELECT-REF4862
       N-REF4863 A-REF4864 LDA-REF4865 B-REF4866 LDB-REF4867 ALPHA-REF4868
       BETA-REF4869 Q-REF4870 LDQ-REF4871 Z-REF4872 LDZ-REF4873 M-REF4874
       PL-REF4875 PR-REF4876 DIF-REF4877 WORK-REF4878 LWORK-REF4879
       IWORK-REF4880 LIWORK-REF4881 INFO-REF4882))))

(CFFI:DEFCFUN ("ctgsja_" %%CTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4886 ':INT32) (P-REF4887 ':INT32)
                              (N-REF4888 ':INT32) (K-REF4889 ':INT32)
                              (L-REF4890 ':INT32) (LDA-REF4892 ':INT32)
                              (LDB-REF4894 ':INT32) (TOLA-REF4895 ':FLOAT)
                              (TOLB-REF4896 ':FLOAT) (LDU-REF4900 ':INT32)
                              (LDV-REF4902 ':INT32) (LDQ-REF4904 ':INT32)
                              (NCYCLE-REF4906 ':INT32) (INFO-REF4907 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4886 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF4887 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4889 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4890 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4892 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4894 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF4895 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF4896 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF4900 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF4902 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4904 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF4906 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4907 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4891 A) (B-REF4893 B)
                                            (ALPHA-REF4897 ALPHA)
                                            (BETA-REF4898 BETA) (U-REF4899 U)
                                            (V-REF4901 V) (Q-REF4903 Q)
                                            (WORK-REF4905 WORK))
      (%%CTGSJA JOBU JOBV JOBQ M-REF4886 P-REF4887 N-REF4888 K-REF4889
       L-REF4890 A-REF4891 LDA-REF4892 B-REF4893 LDB-REF4894 TOLA-REF4895
       TOLB-REF4896 ALPHA-REF4897 BETA-REF4898 U-REF4899 LDU-REF4900 V-REF4901
       LDV-REF4902 Q-REF4903 LDQ-REF4904 WORK-REF4905 NCYCLE-REF4906
       INFO-REF4907))))

(CFFI:DEFCFUN ("ctgsna_" %%CTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4911 ':INT32) (LDA-REF4913 ':INT32)
                              (LDB-REF4915 ':INT32) (LDVL-REF4917 ':INT32)
                              (LDVR-REF4919 ':INT32) (MM-REF4922 ':INT32)
                              (M-REF4923 ':INT32) (LWORK-REF4925 ':INT32)
                              (INFO-REF4927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4913 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4915 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4917 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4919 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4922 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4923 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4925 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4910 SELECT)
                                            (A-REF4912 A) (B-REF4914 B)
                                            (VL-REF4916 VL) (VR-REF4918 VR)
                                            (S-REF4920 S) (DIF-REF4921 DIF)
                                            (WORK-REF4924 WORK)
                                            (IWORK-REF4926 IWORK))
      (%%CTGSNA JOB HOWMNY SELECT-REF4910 N-REF4911 A-REF4912 LDA-REF4913
       B-REF4914 LDB-REF4915 VL-REF4916 LDVL-REF4917 VR-REF4918 LDVR-REF4919
       S-REF4920 DIF-REF4921 MM-REF4922 M-REF4923 WORK-REF4924 LWORK-REF4925
       IWORK-REF4926 INFO-REF4927))))

(CFFI:DEFCFUN ("ctgsy2_" %%CTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4929 ':INT32) (M-REF4930 ':INT32)
                              (N-REF4931 ':INT32) (LDA-REF4933 ':INT32)
                              (LDB-REF4935 ':INT32) (LDC-REF4937 ':INT32)
                              (LDD-REF4939 ':INT32) (LDE-REF4941 ':INT32)
                              (LDF-REF4943 ':INT32) (SCALE-REF4944 ':FLOAT)
                              (RDSUM-REF4945 ':FLOAT) (RDSCAL-REF4946 ':FLOAT)
                              (INFO-REF4947 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4929 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4930 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4931 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4933 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4935 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF4937 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF4939 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF4941 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF4943 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF4944 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF4945 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF4946 :FLOAT) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4947 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4932 A) (B-REF4934 B)
                                            (C-REF4936 C) (D-REF4938 D)
                                            (E-REF4940 E) (F-REF4942 F))
      (%%CTGSY2 TRANS IJOB-REF4929 M-REF4930 N-REF4931 A-REF4932 LDA-REF4933
       B-REF4934 LDB-REF4935 C-REF4936 LDC-REF4937 D-REF4938 LDD-REF4939
       E-REF4940 LDE-REF4941 F-REF4942 LDF-REF4943 SCALE-REF4944 RDSUM-REF4945
       RDSCAL-REF4946 INFO-REF4947))))

(CFFI:DEFCFUN ("ctgsyl_" %%CTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4949 ':INT32) (M-REF4950 ':INT32)
                              (N-REF4951 ':INT32) (LDA-REF4953 ':INT32)
                              (LDB-REF4955 ':INT32) (LDC-REF4957 ':INT32)
                              (LDD-REF4959 ':INT32) (LDE-REF4961 ':INT32)
                              (LDF-REF4963 ':INT32) (SCALE-REF4964 ':FLOAT)
                              (DIF-REF4965 ':FLOAT) (LWORK-REF4967 ':INT32)
                              (INFO-REF4969 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4949 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4950 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4953 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4955 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF4957 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF4959 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF4961 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF4963 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF4964 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF4965 :FLOAT) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4967 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4969 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4952 A) (B-REF4954 B)
                                            (C-REF4956 C) (D-REF4958 D)
                                            (E-REF4960 E) (F-REF4962 F)
                                            (WORK-REF4966 WORK)
                                            (IWORK-REF4968 IWORK))
      (%%CTGSYL TRANS IJOB-REF4949 M-REF4950 N-REF4951 A-REF4952 LDA-REF4953
       B-REF4954 LDB-REF4955 C-REF4956 LDC-REF4957 D-REF4958 LDD-REF4959
       E-REF4960 LDE-REF4961 F-REF4962 LDF-REF4963 SCALE-REF4964 DIF-REF4965
       WORK-REF4966 LWORK-REF4967 IWORK-REF4968 INFO-REF4969))))

(CFFI:DEFCFUN ("ctpcon_" %%CTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPCON (NORM UPLO DIAG N AP RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4973 ':INT32) (RCOND-REF4975 ':FLOAT)
                              (INFO-REF4978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4973 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4975 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4974 AP) (WORK-REF4976 WORK)
                                            (RWORK-REF4977 RWORK))
      (%%CTPCON NORM UPLO DIAG N-REF4973 AP-REF4974 RCOND-REF4975 WORK-REF4976
       RWORK-REF4977 INFO-REF4978))))

(CFFI:DEFCFUN ("ctplqt_" %%CTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4979 ':INT32) (N-REF4980 ':INT32)
                              (L-REF4981 ':INT32) (MB-REF4982 ':INT32)
                              (LDA-REF4984 ':INT32) (LDB-REF4986 ':INT32)
                              (LDT-REF4988 ':INT32) (INFO-REF4990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4979 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4981 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF4982 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4984 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4986 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4988 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4983 A) (B-REF4985 B)
                                            (T-REF4987 T) (WORK-REF4989 WORK))
      (%%CTPLQT M-REF4979 N-REF4980 L-REF4981 MB-REF4982 A-REF4983 LDA-REF4984
       B-REF4985 LDB-REF4986 T-REF4987 LDT-REF4988 WORK-REF4989 INFO-REF4990))))

(CFFI:DEFCFUN ("ctplqt2_" %%CTPLQT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4991 ':INT32) (N-REF4992 ':INT32)
                              (L-REF4993 ':INT32) (LDA-REF4995 ':INT32)
                              (LDB-REF4997 ':INT32) (LDT-REF4999 ':INT32)
                              (INFO-REF5000 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4991 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4992 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4993 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4995 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4997 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4999 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5000 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4994 A) (B-REF4996 B)
                                            (T-REF4998 T))
      (%%CTPLQT2 M-REF4991 N-REF4992 L-REF4993 A-REF4994 LDA-REF4995 B-REF4996
       LDB-REF4997 T-REF4998 LDT-REF4999 INFO-REF5000))))

(CFFI:DEFCFUN ("ctpmlqt_" %%CTPMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5003 ':INT32) (N-REF5004 ':INT32)
                              (K-REF5005 ':INT32) (L-REF5006 ':INT32)
                              (MB-REF5007 ':INT32) (LDV-REF5009 ':INT32)
                              (LDT-REF5011 ':INT32) (LDA-REF5013 ':INT32)
                              (LDB-REF5015 ':INT32) (INFO-REF5017 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5003 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5005 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5006 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5007 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5009 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5011 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5013 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5015 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5017 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5008 V) (T-REF5010 T)
                                            (A-REF5012 A) (B-REF5014 B)
                                            (WORK-REF5016 WORK))
      (%%CTPMLQT SIDE TRANS M-REF5003 N-REF5004 K-REF5005 L-REF5006 MB-REF5007
       V-REF5008 LDV-REF5009 T-REF5010 LDT-REF5011 A-REF5012 LDA-REF5013
       B-REF5014 LDB-REF5015 WORK-REF5016 INFO-REF5017))))

(CFFI:DEFCFUN ("ctpmqrt_" %%CTPMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5020 ':INT32) (N-REF5021 ':INT32)
                              (K-REF5022 ':INT32) (L-REF5023 ':INT32)
                              (NB-REF5024 ':INT32) (LDV-REF5026 ':INT32)
                              (LDT-REF5028 ':INT32) (LDA-REF5030 ':INT32)
                              (LDB-REF5032 ':INT32) (INFO-REF5034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5020 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5022 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5023 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5024 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5026 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5028 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5030 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5032 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5025 V) (T-REF5027 T)
                                            (A-REF5029 A) (B-REF5031 B)
                                            (WORK-REF5033 WORK))
      (%%CTPMQRT SIDE TRANS M-REF5020 N-REF5021 K-REF5022 L-REF5023 NB-REF5024
       V-REF5025 LDV-REF5026 T-REF5027 LDT-REF5028 A-REF5029 LDA-REF5030
       B-REF5031 LDB-REF5032 WORK-REF5033 INFO-REF5034))))

(CFFI:DEFCFUN ("ctpqrt_" %%CTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5035 ':INT32) (N-REF5036 ':INT32)
                              (L-REF5037 ':INT32) (NB-REF5038 ':INT32)
                              (LDA-REF5040 ':INT32) (LDB-REF5042 ':INT32)
                              (LDT-REF5044 ':INT32) (INFO-REF5046 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5035 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5036 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5037 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5038 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5040 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5042 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5044 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5046 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5039 A) (B-REF5041 B)
                                            (T-REF5043 T) (WORK-REF5045 WORK))
      (%%CTPQRT M-REF5035 N-REF5036 L-REF5037 NB-REF5038 A-REF5039 LDA-REF5040
       B-REF5041 LDB-REF5042 T-REF5043 LDT-REF5044 WORK-REF5045 INFO-REF5046))))

(CFFI:DEFCFUN ("ctpqrt2_" %%CTPQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5047 ':INT32) (N-REF5048 ':INT32)
                              (L-REF5049 ':INT32) (LDA-REF5051 ':INT32)
                              (LDB-REF5053 ':INT32) (LDT-REF5055 ':INT32)
                              (INFO-REF5056 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5047 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5048 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5049 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5051 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5053 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5055 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5056 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5050 A) (B-REF5052 B)
                                            (T-REF5054 T))
      (%%CTPQRT2 M-REF5047 N-REF5048 L-REF5049 A-REF5050 LDA-REF5051 B-REF5052
       LDB-REF5053 T-REF5054 LDT-REF5055 INFO-REF5056))))

(CFFI:DEFCFUN ("ctprfb_" %%CTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %CTPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5061 ':INT32) (N-REF5062 ':INT32)
                              (K-REF5063 ':INT32) (L-REF5064 ':INT32)
                              (LDV-REF5066 ':INT32) (LDT-REF5068 ':INT32)
                              (LDA-REF5070 ':INT32) (LDB-REF5072 ':INT32)
                              (LDWORK-REF5074 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5061 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5062 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5063 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5064 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5066 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5068 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5070 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5072 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5074 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5065 V) (T-REF5067 T)
                                            (A-REF5069 A) (B-REF5071 B)
                                            (WORK-REF5073 WORK))
      (%%CTPRFB SIDE TRANS DIRECT STOREV M-REF5061 N-REF5062 K-REF5063
       L-REF5064 V-REF5065 LDV-REF5066 T-REF5067 LDT-REF5068 A-REF5069
       LDA-REF5070 B-REF5071 LDB-REF5072 WORK-REF5073 LDWORK-REF5074))))

(CFFI:DEFCFUN ("ctprfs_" %%CTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5078 ':INT32) (NRHS-REF5079 ':INT32)
                              (LDB-REF5082 ':INT32) (LDX-REF5084 ':INT32)
                              (INFO-REF5089 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5078 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5079 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5082 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5084 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5089 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5080 AP) (B-REF5081 B)
                                            (X-REF5083 X) (FERR-REF5085 FERR)
                                            (BERR-REF5086 BERR)
                                            (WORK-REF5087 WORK)
                                            (RWORK-REF5088 RWORK))
      (%%CTPRFS UPLO TRANS DIAG N-REF5078 NRHS-REF5079 AP-REF5080 B-REF5081
       LDB-REF5082 X-REF5083 LDX-REF5084 FERR-REF5085 BERR-REF5086 WORK-REF5087
       RWORK-REF5088 INFO-REF5089))))

(CFFI:DEFCFUN ("ctptri_" %%CTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5092 ':INT32) (INFO-REF5094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5093 AP))
      (%%CTPTRI UPLO DIAG N-REF5092 AP-REF5093 INFO-REF5094))))

(CFFI:DEFCFUN ("ctptrs_" %%CTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5098 ':INT32) (NRHS-REF5099 ':INT32)
                              (LDB-REF5102 ':INT32) (INFO-REF5103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5098 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5099 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5102 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5103 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5100 AP) (B-REF5101 B))
      (%%CTPTRS UPLO TRANS DIAG N-REF5098 NRHS-REF5099 AP-REF5100 B-REF5101
       LDB-REF5102 INFO-REF5103))))

(CFFI:DEFCFUN ("ctpttf_" %%CTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5106 ':INT32) (INFO-REF5109 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5106 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5109 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5107 AP) (ARF-REF5108 ARF))
      (%%CTPTTF TRANSR UPLO N-REF5106 AP-REF5107 ARF-REF5108 INFO-REF5109))))

(CFFI:DEFCFUN ("ctpttr_" %%CTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5111 ':INT32) (LDA-REF5114 ':INT32)
                              (INFO-REF5115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5111 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5114 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5112 AP) (A-REF5113 A))
      (%%CTPTTR UPLO N-REF5111 AP-REF5112 A-REF5113 LDA-REF5114 INFO-REF5115))))

(CFFI:DEFCFUN ("ctrcon_" %%CTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRCON (NORM UPLO DIAG N A LDA RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5119 ':INT32) (LDA-REF5121 ':INT32)
                              (RCOND-REF5122 ':FLOAT) (INFO-REF5125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5121 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5122 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5120 A) (WORK-REF5123 WORK)
                                            (RWORK-REF5124 RWORK))
      (%%CTRCON NORM UPLO DIAG N-REF5119 A-REF5120 LDA-REF5121 RCOND-REF5122
       WORK-REF5123 RWORK-REF5124 INFO-REF5125))))

(CFFI:DEFCFUN ("ctrevc_" %%CTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5129 ':INT32) (LDT-REF5131 ':INT32)
                              (LDVL-REF5133 ':INT32) (LDVR-REF5135 ':INT32)
                              (MM-REF5136 ':INT32) (M-REF5137 ':INT32)
                              (INFO-REF5140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5129 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5131 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5133 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5135 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5136 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5137 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5128 SELECT)
                                            (T-REF5130 T) (VL-REF5132 VL)
                                            (VR-REF5134 VR) (WORK-REF5138 WORK)
                                            (RWORK-REF5139 RWORK))
      (%%CTREVC SIDE HOWMNY SELECT-REF5128 N-REF5129 T-REF5130 LDT-REF5131
       VL-REF5132 LDVL-REF5133 VR-REF5134 LDVR-REF5135 MM-REF5136 M-REF5137
       WORK-REF5138 RWORK-REF5139 INFO-REF5140))))

(CFFI:DEFCFUN ("ctrevc3_" %%CTREVC3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5144 ':INT32) (LDT-REF5146 ':INT32)
                              (LDVL-REF5148 ':INT32) (LDVR-REF5150 ':INT32)
                              (MM-REF5151 ':INT32) (M-REF5152 ':INT32)
                              (LWORK-REF5154 ':INT32) (LRWORK-REF5156 ':INT32)
                              (INFO-REF5157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5144 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5146 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5148 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5150 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5151 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5152 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5154 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5156 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5157 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5143 SELECT)
                                            (T-REF5145 T) (VL-REF5147 VL)
                                            (VR-REF5149 VR) (WORK-REF5153 WORK)
                                            (RWORK-REF5155 RWORK))
      (%%CTREVC3 SIDE HOWMNY SELECT-REF5143 N-REF5144 T-REF5145 LDT-REF5146
       VL-REF5147 LDVL-REF5148 VR-REF5149 LDVR-REF5150 MM-REF5151 M-REF5152
       WORK-REF5153 LWORK-REF5154 RWORK-REF5155 LRWORK-REF5156 INFO-REF5157))))

(CFFI:DEFCFUN ("ctrexc_" %%CTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTREXC (COMPQ N T LDT Q LDQ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5159 ':INT32) (LDT-REF5161 ':INT32)
                              (LDQ-REF5163 ':INT32) (IFST-REF5164 ':INT32)
                              (ILST-REF5165 ':INT32) (INFO-REF5166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5159 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5161 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5163 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF5164 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF5165 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5166 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF5160 T) (Q-REF5162 Q))
      (%%CTREXC COMPQ N-REF5159 T-REF5160 LDT-REF5161 Q-REF5162 LDQ-REF5163
       IFST-REF5164 ILST-REF5165 INFO-REF5166))))

(CFFI:DEFCFUN ("ctrrfs_" %%CTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5170 ':INT32) (NRHS-REF5171 ':INT32)
                              (LDA-REF5173 ':INT32) (LDB-REF5175 ':INT32)
                              (LDX-REF5177 ':INT32) (INFO-REF5182 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5171 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5173 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5175 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5177 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5182 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5172 A) (B-REF5174 B)
                                            (X-REF5176 X) (FERR-REF5178 FERR)
                                            (BERR-REF5179 BERR)
                                            (WORK-REF5180 WORK)
                                            (RWORK-REF5181 RWORK))
      (%%CTRRFS UPLO TRANS DIAG N-REF5170 NRHS-REF5171 A-REF5172 LDA-REF5173
       B-REF5174 LDB-REF5175 X-REF5176 LDX-REF5177 FERR-REF5178 BERR-REF5179
       WORK-REF5180 RWORK-REF5181 INFO-REF5182))))

(CFFI:DEFCFUN ("ctrsen_" %%CTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (W :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ W M S SEP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5186 ':INT32) (LDT-REF5188 ':INT32)
                              (LDQ-REF5190 ':INT32) (M-REF5192 ':INT32)
                              (S-REF5193 ':FLOAT) (SEP-REF5194 ':FLOAT)
                              (LWORK-REF5196 ':INT32) (INFO-REF5197 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5188 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5190 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5192 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF5193 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF5194 :FLOAT) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5196 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5197 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5185 SELECT)
                                            (T-REF5187 T) (Q-REF5189 Q)
                                            (W-REF5191 W) (WORK-REF5195 WORK))
      (%%CTRSEN JOB COMPQ SELECT-REF5185 N-REF5186 T-REF5187 LDT-REF5188
       Q-REF5189 LDQ-REF5190 W-REF5191 M-REF5192 S-REF5193 SEP-REF5194
       WORK-REF5195 LWORK-REF5196 INFO-REF5197))))

(CFFI:DEFCFUN ("ctrsna_" %%CTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5201 ':INT32) (LDT-REF5203 ':INT32)
                              (LDVL-REF5205 ':INT32) (LDVR-REF5207 ':INT32)
                              (MM-REF5210 ':INT32) (M-REF5211 ':INT32)
                              (LDWORK-REF5213 ':INT32) (INFO-REF5215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5201 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5203 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5205 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5207 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5210 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5211 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5213 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5200 SELECT)
                                            (T-REF5202 T) (VL-REF5204 VL)
                                            (VR-REF5206 VR) (S-REF5208 S)
                                            (SEP-REF5209 SEP)
                                            (WORK-REF5212 WORK)
                                            (RWORK-REF5214 RWORK))
      (%%CTRSNA JOB HOWMNY SELECT-REF5200 N-REF5201 T-REF5202 LDT-REF5203
       VL-REF5204 LDVL-REF5205 VR-REF5206 LDVR-REF5207 S-REF5208 SEP-REF5209
       MM-REF5210 M-REF5211 WORK-REF5212 LDWORK-REF5213 RWORK-REF5214
       INFO-REF5215))))

(CFFI:DEFCFUN ("ctrsyl_" %%CTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF5218 ':INT32) (M-REF5219 ':INT32)
                              (N-REF5220 ':INT32) (LDA-REF5222 ':INT32)
                              (LDB-REF5224 ':INT32) (LDC-REF5226 ':INT32)
                              (SCALE-REF5227 ':FLOAT) (INFO-REF5228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF5218 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5219 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5220 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5222 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5224 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5226 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5227 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5228 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5221 A) (B-REF5223 B)
                                            (C-REF5225 C))
      (%%CTRSYL TRANA TRANB ISGN-REF5218 M-REF5219 N-REF5220 A-REF5221
       LDA-REF5222 B-REF5223 LDB-REF5224 C-REF5225 LDC-REF5226 SCALE-REF5227
       INFO-REF5228))))

(CFFI:DEFCFUN ("ctrti2_" %%CTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5231 ':INT32) (LDA-REF5233 ':INT32)
                              (INFO-REF5234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5231 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5233 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5234 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5232 A))
      (%%CTRTI2 UPLO DIAG N-REF5231 A-REF5232 LDA-REF5233 INFO-REF5234))))

(CFFI:DEFCFUN ("ctrtri_" %%CTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5237 ':INT32) (LDA-REF5239 ':INT32)
                              (INFO-REF5240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5237 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5239 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5238 A))
      (%%CTRTRI UPLO DIAG N-REF5237 A-REF5238 LDA-REF5239 INFO-REF5240))))

(CFFI:DEFCFUN ("ctrtrs_" %%CTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5244 ':INT32) (NRHS-REF5245 ':INT32)
                              (LDA-REF5247 ':INT32) (LDB-REF5249 ':INT32)
                              (INFO-REF5250 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5245 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5249 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5250 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5246 A) (B-REF5248 B))
      (%%CTRTRS UPLO TRANS DIAG N-REF5244 NRHS-REF5245 A-REF5246 LDA-REF5247
       B-REF5248 LDB-REF5249 INFO-REF5250))))

(CFFI:DEFCFUN ("ctrttf_" %%CTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5253 ':INT32) (LDA-REF5255 ':INT32)
                              (INFO-REF5257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5253 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5255 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5257 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5254 A) (ARF-REF5256 ARF))
      (%%CTRTTF TRANSR UPLO N-REF5253 A-REF5254 LDA-REF5255 ARF-REF5256
       INFO-REF5257))))

(CFFI:DEFCFUN ("ctrttp_" %%CTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5259 ':INT32) (LDA-REF5261 ':INT32)
                              (INFO-REF5263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5259 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5261 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5260 A) (AP-REF5262 AP))
      (%%CTRTTP UPLO N-REF5259 A-REF5260 LDA-REF5261 AP-REF5262 INFO-REF5263))))

(CFFI:DEFCFUN ("ctzrzf_" %%CTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5264 ':INT32) (N-REF5265 ':INT32)
                              (LDA-REF5267 ':INT32) (LWORK-REF5270 ':INT32)
                              (INFO-REF5271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5264 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5267 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5270 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5266 A) (TAU-REF5268 TAU)
                                            (WORK-REF5269 WORK))
      (%%CTZRZF M-REF5264 N-REF5265 A-REF5266 LDA-REF5267 TAU-REF5268
       WORK-REF5269 LWORK-REF5270 INFO-REF5271))))

(CFFI:DEFCFUN ("cunbdb_" %%CUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5274 ':INT32) (P-REF5275 ':INT32)
                              (Q-REF5276 ':INT32) (LDX11-REF5278 ':INT32)
                              (LDX12-REF5280 ':INT32) (LDX21-REF5282 ':INT32)
                              (LDX22-REF5284 ':INT32) (LWORK-REF5292 ':INT32)
                              (INFO-REF5293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5274 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5275 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5276 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5278 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5280 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5282 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5284 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5292 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5293 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5277 X11) (X12-REF5279 X12)
                                            (X21-REF5281 X21) (X22-REF5283 X22)
                                            (THETA-REF5285 THETA)
                                            (PHI-REF5286 PHI)
                                            (TAUP1-REF5287 TAUP1)
                                            (TAUP2-REF5288 TAUP2)
                                            (TAUQ1-REF5289 TAUQ1)
                                            (TAUQ2-REF5290 TAUQ2)
                                            (WORK-REF5291 WORK))
      (%%CUNBDB TRANS SIGNS M-REF5274 P-REF5275 Q-REF5276 X11-REF5277
       LDX11-REF5278 X12-REF5279 LDX12-REF5280 X21-REF5281 LDX21-REF5282
       X22-REF5283 LDX22-REF5284 THETA-REF5285 PHI-REF5286 TAUP1-REF5287
       TAUP2-REF5288 TAUQ1-REF5289 TAUQ2-REF5290 WORK-REF5291 LWORK-REF5292
       INFO-REF5293))))

(CFFI:DEFCFUN ("cunbdb1_" %%CUNBDB1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5294 ':INT32) (P-REF5295 ':INT32)
                              (Q-REF5296 ':INT32) (LDX11-REF5298 ':INT32)
                              (LDX21-REF5300 ':INT32) (LWORK-REF5307 ':INT32)
                              (INFO-REF5308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5295 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5296 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5298 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5300 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5307 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5297 X11) (X21-REF5299 X21)
                                            (THETA-REF5301 THETA)
                                            (PHI-REF5302 PHI)
                                            (TAUP1-REF5303 TAUP1)
                                            (TAUP2-REF5304 TAUP2)
                                            (TAUQ1-REF5305 TAUQ1)
                                            (WORK-REF5306 WORK))
      (%%CUNBDB1 M-REF5294 P-REF5295 Q-REF5296 X11-REF5297 LDX11-REF5298
       X21-REF5299 LDX21-REF5300 THETA-REF5301 PHI-REF5302 TAUP1-REF5303
       TAUP2-REF5304 TAUQ1-REF5305 WORK-REF5306 LWORK-REF5307 INFO-REF5308))))

(CFFI:DEFCFUN ("cunbdb2_" %%CUNBDB2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5309 ':INT32) (P-REF5310 ':INT32)
                              (Q-REF5311 ':INT32) (LDX11-REF5313 ':INT32)
                              (LDX21-REF5315 ':INT32) (LWORK-REF5322 ':INT32)
                              (INFO-REF5323 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5309 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5310 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5311 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5313 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5315 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5322 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5323 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5312 X11) (X21-REF5314 X21)
                                            (THETA-REF5316 THETA)
                                            (PHI-REF5317 PHI)
                                            (TAUP1-REF5318 TAUP1)
                                            (TAUP2-REF5319 TAUP2)
                                            (TAUQ1-REF5320 TAUQ1)
                                            (WORK-REF5321 WORK))
      (%%CUNBDB2 M-REF5309 P-REF5310 Q-REF5311 X11-REF5312 LDX11-REF5313
       X21-REF5314 LDX21-REF5315 THETA-REF5316 PHI-REF5317 TAUP1-REF5318
       TAUP2-REF5319 TAUQ1-REF5320 WORK-REF5321 LWORK-REF5322 INFO-REF5323))))

(CFFI:DEFCFUN ("cunbdb3_" %%CUNBDB3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5324 ':INT32) (P-REF5325 ':INT32)
                              (Q-REF5326 ':INT32) (LDX11-REF5328 ':INT32)
                              (LDX21-REF5330 ':INT32) (LWORK-REF5337 ':INT32)
                              (INFO-REF5338 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5324 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5325 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5326 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5328 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5330 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5337 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5338 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5327 X11) (X21-REF5329 X21)
                                            (THETA-REF5331 THETA)
                                            (PHI-REF5332 PHI)
                                            (TAUP1-REF5333 TAUP1)
                                            (TAUP2-REF5334 TAUP2)
                                            (TAUQ1-REF5335 TAUQ1)
                                            (WORK-REF5336 WORK))
      (%%CUNBDB3 M-REF5324 P-REF5325 Q-REF5326 X11-REF5327 LDX11-REF5328
       X21-REF5329 LDX21-REF5330 THETA-REF5331 PHI-REF5332 TAUP1-REF5333
       TAUP2-REF5334 TAUQ1-REF5335 WORK-REF5336 LWORK-REF5337 INFO-REF5338))))

(CFFI:DEFCFUN ("cunbdb4_" %%CUNBDB4 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5339 ':INT32) (P-REF5340 ':INT32)
                              (Q-REF5341 ':INT32) (LDX11-REF5343 ':INT32)
                              (LDX21-REF5345 ':INT32) (LWORK-REF5353 ':INT32)
                              (INFO-REF5354 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5339 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5340 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5341 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5343 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5345 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5353 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5354 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5342 X11) (X21-REF5344 X21)
                                            (THETA-REF5346 THETA)
                                            (PHI-REF5347 PHI)
                                            (TAUP1-REF5348 TAUP1)
                                            (TAUP2-REF5349 TAUP2)
                                            (TAUQ1-REF5350 TAUQ1)
                                            (PHANTOM-REF5351 PHANTOM)
                                            (WORK-REF5352 WORK))
      (%%CUNBDB4 M-REF5339 P-REF5340 Q-REF5341 X11-REF5342 LDX11-REF5343
       X21-REF5344 LDX21-REF5345 THETA-REF5346 PHI-REF5347 TAUP1-REF5348
       TAUP2-REF5349 TAUQ1-REF5350 PHANTOM-REF5351 WORK-REF5352 LWORK-REF5353
       INFO-REF5354))))

(CFFI:DEFCFUN ("cunbdb5_" %%CUNBDB5 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5355 ':INT32) (M2-REF5356 ':INT32)
                              (N-REF5357 ':INT32) (INCX1-REF5359 ':INT32)
                              (INCX2-REF5361 ':INT32) (LDQ1-REF5363 ':INT32)
                              (LDQ2-REF5365 ':INT32) (LWORK-REF5367 ':INT32)
                              (INFO-REF5368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5355 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5356 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5359 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5361 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5363 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5365 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5367 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5368 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5358 X1) (X2-REF5360 X2)
                                            (Q1-REF5362 Q1) (Q2-REF5364 Q2)
                                            (WORK-REF5366 WORK))
      (%%CUNBDB5 M1-REF5355 M2-REF5356 N-REF5357 X1-REF5358 INCX1-REF5359
       X2-REF5360 INCX2-REF5361 Q1-REF5362 LDQ1-REF5363 Q2-REF5364 LDQ2-REF5365
       WORK-REF5366 LWORK-REF5367 INFO-REF5368))))

(CFFI:DEFCFUN ("cunbdb6_" %%CUNBDB6 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5369 ':INT32) (M2-REF5370 ':INT32)
                              (N-REF5371 ':INT32) (INCX1-REF5373 ':INT32)
                              (INCX2-REF5375 ':INT32) (LDQ1-REF5377 ':INT32)
                              (LDQ2-REF5379 ':INT32) (LWORK-REF5381 ':INT32)
                              (INFO-REF5382 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5369 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5370 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5373 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5375 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5377 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5379 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5381 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5382 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5372 X1) (X2-REF5374 X2)
                                            (Q1-REF5376 Q1) (Q2-REF5378 Q2)
                                            (WORK-REF5380 WORK))
      (%%CUNBDB6 M1-REF5369 M2-REF5370 N-REF5371 X1-REF5372 INCX1-REF5373
       X2-REF5374 INCX2-REF5375 Q1-REF5376 LDQ1-REF5377 Q2-REF5378 LDQ2-REF5379
       WORK-REF5380 LWORK-REF5381 INFO-REF5382))))

(CFFI:DEFCFUN ("cuncsd_" %%CUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5389 ':INT32) (P-REF5390 ':INT32)
                              (Q-REF5391 ':INT32) (LDX11-REF5393 ':INT32)
                              (LDX12-REF5395 ':INT32) (LDX21-REF5397 ':INT32)
                              (LDX22-REF5399 ':INT32) (LDU1-REF5402 ':INT32)
                              (LDU2-REF5404 ':INT32) (LDV1T-REF5406 ':INT32)
                              (LDV2T-REF5408 ':INT32) (LWORK-REF5410 ':INT32)
                              (LRWORK-REF5412 ':INT32) (INFO-REF5414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5389 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5390 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5391 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5393 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5395 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5397 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5399 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5402 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5404 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5406 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5408 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5410 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5412 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5414 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5392 X11) (X12-REF5394 X12)
                                            (X21-REF5396 X21) (X22-REF5398 X22)
                                            (THETA-REF5400 THETA)
                                            (U1-REF5401 U1) (U2-REF5403 U2)
                                            (V1T-REF5405 V1T) (V2T-REF5407 V2T)
                                            (WORK-REF5409 WORK)
                                            (RWORK-REF5411 RWORK)
                                            (IWORK-REF5413 IWORK))
      (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF5389 P-REF5390
       Q-REF5391 X11-REF5392 LDX11-REF5393 X12-REF5394 LDX12-REF5395
       X21-REF5396 LDX21-REF5397 X22-REF5398 LDX22-REF5399 THETA-REF5400
       U1-REF5401 LDU1-REF5402 U2-REF5403 LDU2-REF5404 V1T-REF5405
       LDV1T-REF5406 V2T-REF5407 LDV2T-REF5408 WORK-REF5409 LWORK-REF5410
       RWORK-REF5411 LRWORK-REF5412 IWORK-REF5413 INFO-REF5414))))

(CFFI:DEFCFUN ("cuncsd2by1_" %%CUNCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5418 ':INT32) (P-REF5419 ':INT32)
                              (Q-REF5420 ':INT32) (LDX11-REF5422 ':INT32)
                              (LDX21-REF5424 ':INT32) (LDU1-REF5427 ':INT32)
                              (LDU2-REF5429 ':INT32) (LDV1T-REF5431 ':INT32)
                              (LWORK-REF5433 ':INT32) (LRWORK-REF5435 ':INT32)
                              (INFO-REF5437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5418 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5419 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5420 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5422 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5424 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5427 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5429 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5431 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5433 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5435 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5421 X11) (X21-REF5423 X21)
                                            (THETA-REF5425 THETA)
                                            (U1-REF5426 U1) (U2-REF5428 U2)
                                            (V1T-REF5430 V1T)
                                            (WORK-REF5432 WORK)
                                            (RWORK-REF5434 RWORK)
                                            (IWORK-REF5436 IWORK))
      (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF5418 P-REF5419 Q-REF5420
       X11-REF5421 LDX11-REF5422 X21-REF5423 LDX21-REF5424 THETA-REF5425
       U1-REF5426 LDU1-REF5427 U2-REF5428 LDU2-REF5429 V1T-REF5430
       LDV1T-REF5431 WORK-REF5432 LWORK-REF5433 RWORK-REF5434 LRWORK-REF5435
       IWORK-REF5436 INFO-REF5437))))

(CFFI:DEFCFUN ("cung2l_" %%CUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5438 ':INT32) (N-REF5439 ':INT32)
                              (K-REF5440 ':INT32) (LDA-REF5442 ':INT32)
                              (INFO-REF5445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5438 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5440 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5442 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5441 A) (TAU-REF5443 TAU)
                                            (WORK-REF5444 WORK))
      (%%CUNG2L M-REF5438 N-REF5439 K-REF5440 A-REF5441 LDA-REF5442 TAU-REF5443
       WORK-REF5444 INFO-REF5445))))

(CFFI:DEFCFUN ("cung2r_" %%CUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5446 ':INT32) (N-REF5447 ':INT32)
                              (K-REF5448 ':INT32) (LDA-REF5450 ':INT32)
                              (INFO-REF5453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5446 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5448 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5450 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5453 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5449 A) (TAU-REF5451 TAU)
                                            (WORK-REF5452 WORK))
      (%%CUNG2R M-REF5446 N-REF5447 K-REF5448 A-REF5449 LDA-REF5450 TAU-REF5451
       WORK-REF5452 INFO-REF5453))))

(CFFI:DEFCFUN ("cungbr_" %%CUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5455 ':INT32) (N-REF5456 ':INT32)
                              (K-REF5457 ':INT32) (LDA-REF5459 ':INT32)
                              (LWORK-REF5462 ':INT32) (INFO-REF5463 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5455 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5457 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5459 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5462 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5463 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5458 A) (TAU-REF5460 TAU)
                                            (WORK-REF5461 WORK))
      (%%CUNGBR VECT M-REF5455 N-REF5456 K-REF5457 A-REF5458 LDA-REF5459
       TAU-REF5460 WORK-REF5461 LWORK-REF5462 INFO-REF5463))))

(CFFI:DEFCFUN ("cunghr_" %%CUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5464 ':INT32) (ILO-REF5465 ':INT32)
                              (IHI-REF5466 ':INT32) (LDA-REF5468 ':INT32)
                              (LWORK-REF5471 ':INT32) (INFO-REF5472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5464 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5465 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5466 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5468 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5471 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5467 A) (TAU-REF5469 TAU)
                                            (WORK-REF5470 WORK))
      (%%CUNGHR N-REF5464 ILO-REF5465 IHI-REF5466 A-REF5467 LDA-REF5468
       TAU-REF5469 WORK-REF5470 LWORK-REF5471 INFO-REF5472))))

(CFFI:DEFCFUN ("cungl2_" %%CUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5473 ':INT32) (N-REF5474 ':INT32)
                              (K-REF5475 ':INT32) (LDA-REF5477 ':INT32)
                              (INFO-REF5480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5473 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5474 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5475 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5477 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5476 A) (TAU-REF5478 TAU)
                                            (WORK-REF5479 WORK))
      (%%CUNGL2 M-REF5473 N-REF5474 K-REF5475 A-REF5476 LDA-REF5477 TAU-REF5478
       WORK-REF5479 INFO-REF5480))))

(CFFI:DEFCFUN ("cunglq_" %%CUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5481 ':INT32) (N-REF5482 ':INT32)
                              (K-REF5483 ':INT32) (LDA-REF5485 ':INT32)
                              (LWORK-REF5488 ':INT32) (INFO-REF5489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5481 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5483 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5485 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5488 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5484 A) (TAU-REF5486 TAU)
                                            (WORK-REF5487 WORK))
      (%%CUNGLQ M-REF5481 N-REF5482 K-REF5483 A-REF5484 LDA-REF5485 TAU-REF5486
       WORK-REF5487 LWORK-REF5488 INFO-REF5489))))

(CFFI:DEFCFUN ("cungql_" %%CUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5490 ':INT32) (N-REF5491 ':INT32)
                              (K-REF5492 ':INT32) (LDA-REF5494 ':INT32)
                              (LWORK-REF5497 ':INT32) (INFO-REF5498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5490 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5491 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5492 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5497 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5493 A) (TAU-REF5495 TAU)
                                            (WORK-REF5496 WORK))
      (%%CUNGQL M-REF5490 N-REF5491 K-REF5492 A-REF5493 LDA-REF5494 TAU-REF5495
       WORK-REF5496 LWORK-REF5497 INFO-REF5498))))

(CFFI:DEFCFUN ("cungqr_" %%CUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5499 ':INT32) (N-REF5500 ':INT32)
                              (K-REF5501 ':INT32) (LDA-REF5503 ':INT32)
                              (LWORK-REF5506 ':INT32) (INFO-REF5507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5499 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5501 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5503 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5506 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5502 A) (TAU-REF5504 TAU)
                                            (WORK-REF5505 WORK))
      (%%CUNGQR M-REF5499 N-REF5500 K-REF5501 A-REF5502 LDA-REF5503 TAU-REF5504
       WORK-REF5505 LWORK-REF5506 INFO-REF5507))))

(CFFI:DEFCFUN ("cungr2_" %%CUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5508 ':INT32) (N-REF5509 ':INT32)
                              (K-REF5510 ':INT32) (LDA-REF5512 ':INT32)
                              (INFO-REF5515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5508 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5510 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5511 A) (TAU-REF5513 TAU)
                                            (WORK-REF5514 WORK))
      (%%CUNGR2 M-REF5508 N-REF5509 K-REF5510 A-REF5511 LDA-REF5512 TAU-REF5513
       WORK-REF5514 INFO-REF5515))))

(CFFI:DEFCFUN ("cungrq_" %%CUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5516 ':INT32) (N-REF5517 ':INT32)
                              (K-REF5518 ':INT32) (LDA-REF5520 ':INT32)
                              (LWORK-REF5523 ':INT32) (INFO-REF5524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5516 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5517 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5518 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5520 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5523 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5519 A) (TAU-REF5521 TAU)
                                            (WORK-REF5522 WORK))
      (%%CUNGRQ M-REF5516 N-REF5517 K-REF5518 A-REF5519 LDA-REF5520 TAU-REF5521
       WORK-REF5522 LWORK-REF5523 INFO-REF5524))))

(CFFI:DEFCFUN ("cungtr_" %%CUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5526 ':INT32) (LDA-REF5528 ':INT32)
                              (LWORK-REF5531 ':INT32) (INFO-REF5532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5526 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5528 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5531 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5527 A) (TAU-REF5529 TAU)
                                            (WORK-REF5530 WORK))
      (%%CUNGTR UPLO N-REF5526 A-REF5527 LDA-REF5528 TAU-REF5529 WORK-REF5530
       LWORK-REF5531 INFO-REF5532))))

(CFFI:DEFCFUN ("cungtsqr_" %%CUNGTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGTSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5533 ':INT32) (N-REF5534 ':INT32)
                              (MB-REF5535 ':INT32) (NB-REF5536 ':INT32)
                              (LDA-REF5538 ':INT32) (LDT-REF5540 ':INT32)
                              (LWORK-REF5542 ':INT32) (INFO-REF5543 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5533 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5535 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5536 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5538 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5540 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5542 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5543 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5537 A) (T-REF5539 T)
                                            (WORK-REF5541 WORK))
      (%%CUNGTSQR M-REF5533 N-REF5534 MB-REF5535 NB-REF5536 A-REF5537
       LDA-REF5538 T-REF5539 LDT-REF5540 WORK-REF5541 LWORK-REF5542
       INFO-REF5543))))

(CFFI:DEFCFUN ("cunhr_col_" %%CUNHR_COL :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNHR_COL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5544 ':INT32) (N-REF5545 ':INT32)
                              (NB-REF5546 ':INT32) (LDA-REF5548 ':INT32)
                              (LDT-REF5550 ':INT32) (INFO-REF5552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5544 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5545 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5546 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5548 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5550 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5547 A) (T-REF5549 T)
                                            (D-REF5551 D))
      (%%CUNHR_COL M-REF5544 N-REF5545 NB-REF5546 A-REF5547 LDA-REF5548
       T-REF5549 LDT-REF5550 D-REF5551 INFO-REF5552))))

(CFFI:DEFCFUN ("cunm22_" %%CUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5555 ':INT32) (N-REF5556 ':INT32)
                              (N1-REF5557 ':INT32) (N2-REF5558 ':INT32)
                              (LDQ-REF5560 ':INT32) (LDC-REF5562 ':INT32)
                              (LWORK-REF5564 ':INT32) (INFO-REF5565 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5555 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5556 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF5557 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF5558 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5560 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5562 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5564 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5565 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF5559 Q) (C-REF5561 C)
                                            (WORK-REF5563 WORK))
      (%%CUNM22 SIDE TRANS M-REF5555 N-REF5556 N1-REF5557 N2-REF5558 Q-REF5559
       LDQ-REF5560 C-REF5561 LDC-REF5562 WORK-REF5563 LWORK-REF5564
       INFO-REF5565))))

(CFFI:DEFCFUN ("cunm2l_" %%CUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5568 ':INT32) (N-REF5569 ':INT32)
                              (K-REF5570 ':INT32) (LDA-REF5572 ':INT32)
                              (LDC-REF5575 ':INT32) (INFO-REF5577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5568 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5570 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5575 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5571 A) (TAU-REF5573 TAU)
                                            (C-REF5574 C) (WORK-REF5576 WORK))
      (%%CUNM2L SIDE TRANS M-REF5568 N-REF5569 K-REF5570 A-REF5571 LDA-REF5572
       TAU-REF5573 C-REF5574 LDC-REF5575 WORK-REF5576 INFO-REF5577))))

(CFFI:DEFCFUN ("cunm2r_" %%CUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5580 ':INT32) (N-REF5581 ':INT32)
                              (K-REF5582 ':INT32) (LDA-REF5584 ':INT32)
                              (LDC-REF5587 ':INT32) (INFO-REF5589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5580 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5582 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5584 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5587 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5583 A) (TAU-REF5585 TAU)
                                            (C-REF5586 C) (WORK-REF5588 WORK))
      (%%CUNM2R SIDE TRANS M-REF5580 N-REF5581 K-REF5582 A-REF5583 LDA-REF5584
       TAU-REF5585 C-REF5586 LDC-REF5587 WORK-REF5588 INFO-REF5589))))

(CFFI:DEFCFUN ("cunmbr_" %%CUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5593 ':INT32) (N-REF5594 ':INT32)
                              (K-REF5595 ':INT32) (LDA-REF5597 ':INT32)
                              (LDC-REF5600 ':INT32) (LWORK-REF5602 ':INT32)
                              (INFO-REF5603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5593 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5595 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5597 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5600 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5602 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5603 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5596 A) (TAU-REF5598 TAU)
                                            (C-REF5599 C) (WORK-REF5601 WORK))
      (%%CUNMBR VECT SIDE TRANS M-REF5593 N-REF5594 K-REF5595 A-REF5596
       LDA-REF5597 TAU-REF5598 C-REF5599 LDC-REF5600 WORK-REF5601 LWORK-REF5602
       INFO-REF5603))))

(CFFI:DEFCFUN ("cunmhr_" %%CUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5606 ':INT32) (N-REF5607 ':INT32)
                              (ILO-REF5608 ':INT32) (IHI-REF5609 ':INT32)
                              (LDA-REF5611 ':INT32) (LDC-REF5614 ':INT32)
                              (LWORK-REF5616 ':INT32) (INFO-REF5617 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5606 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5608 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5609 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5611 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5614 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5616 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5617 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5610 A) (TAU-REF5612 TAU)
                                            (C-REF5613 C) (WORK-REF5615 WORK))
      (%%CUNMHR SIDE TRANS M-REF5606 N-REF5607 ILO-REF5608 IHI-REF5609
       A-REF5610 LDA-REF5611 TAU-REF5612 C-REF5613 LDC-REF5614 WORK-REF5615
       LWORK-REF5616 INFO-REF5617))))

(CFFI:DEFCFUN ("cunml2_" %%CUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5620 ':INT32) (N-REF5621 ':INT32)
                              (K-REF5622 ':INT32) (LDA-REF5624 ':INT32)
                              (LDC-REF5627 ':INT32) (INFO-REF5629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5620 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5622 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5624 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5627 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5629 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5623 A) (TAU-REF5625 TAU)
                                            (C-REF5626 C) (WORK-REF5628 WORK))
      (%%CUNML2 SIDE TRANS M-REF5620 N-REF5621 K-REF5622 A-REF5623 LDA-REF5624
       TAU-REF5625 C-REF5626 LDC-REF5627 WORK-REF5628 INFO-REF5629))))

(CFFI:DEFCFUN ("cunmlq_" %%CUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5632 ':INT32) (N-REF5633 ':INT32)
                              (K-REF5634 ':INT32) (LDA-REF5636 ':INT32)
                              (LDC-REF5639 ':INT32) (LWORK-REF5641 ':INT32)
                              (INFO-REF5642 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5632 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5633 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5634 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5636 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5639 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5641 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5642 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5635 A) (TAU-REF5637 TAU)
                                            (C-REF5638 C) (WORK-REF5640 WORK))
      (%%CUNMLQ SIDE TRANS M-REF5632 N-REF5633 K-REF5634 A-REF5635 LDA-REF5636
       TAU-REF5637 C-REF5638 LDC-REF5639 WORK-REF5640 LWORK-REF5641
       INFO-REF5642))))

(CFFI:DEFCFUN ("cunmql_" %%CUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5645 ':INT32) (N-REF5646 ':INT32)
                              (K-REF5647 ':INT32) (LDA-REF5649 ':INT32)
                              (LDC-REF5652 ':INT32) (LWORK-REF5654 ':INT32)
                              (INFO-REF5655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5645 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5646 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5647 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5649 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5652 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5654 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5648 A) (TAU-REF5650 TAU)
                                            (C-REF5651 C) (WORK-REF5653 WORK))
      (%%CUNMQL SIDE TRANS M-REF5645 N-REF5646 K-REF5647 A-REF5648 LDA-REF5649
       TAU-REF5650 C-REF5651 LDC-REF5652 WORK-REF5653 LWORK-REF5654
       INFO-REF5655))))

(CFFI:DEFCFUN ("cunmqr_" %%CUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5658 ':INT32) (N-REF5659 ':INT32)
                              (K-REF5660 ':INT32) (LDA-REF5662 ':INT32)
                              (LDC-REF5665 ':INT32) (LWORK-REF5667 ':INT32)
                              (INFO-REF5668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5658 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5659 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5660 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5665 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5667 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5661 A) (TAU-REF5663 TAU)
                                            (C-REF5664 C) (WORK-REF5666 WORK))
      (%%CUNMQR SIDE TRANS M-REF5658 N-REF5659 K-REF5660 A-REF5661 LDA-REF5662
       TAU-REF5663 C-REF5664 LDC-REF5665 WORK-REF5666 LWORK-REF5667
       INFO-REF5668))))

(CFFI:DEFCFUN ("cunmr2_" %%CUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5671 ':INT32) (N-REF5672 ':INT32)
                              (K-REF5673 ':INT32) (LDA-REF5675 ':INT32)
                              (LDC-REF5678 ':INT32) (INFO-REF5680 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5671 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5672 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5673 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5675 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5678 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5680 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5674 A) (TAU-REF5676 TAU)
                                            (C-REF5677 C) (WORK-REF5679 WORK))
      (%%CUNMR2 SIDE TRANS M-REF5671 N-REF5672 K-REF5673 A-REF5674 LDA-REF5675
       TAU-REF5676 C-REF5677 LDC-REF5678 WORK-REF5679 INFO-REF5680))))

(CFFI:DEFCFUN ("cunmr3_" %%CUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5683 ':INT32) (N-REF5684 ':INT32)
                              (K-REF5685 ':INT32) (L-REF5686 ':INT32)
                              (LDA-REF5688 ':INT32) (LDC-REF5691 ':INT32)
                              (INFO-REF5693 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5683 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5684 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5685 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5686 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5688 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5691 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5693 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5687 A) (TAU-REF5689 TAU)
                                            (C-REF5690 C) (WORK-REF5692 WORK))
      (%%CUNMR3 SIDE TRANS M-REF5683 N-REF5684 K-REF5685 L-REF5686 A-REF5687
       LDA-REF5688 TAU-REF5689 C-REF5690 LDC-REF5691 WORK-REF5692
       INFO-REF5693))))

(CFFI:DEFCFUN ("cunmrq_" %%CUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5696 ':INT32) (N-REF5697 ':INT32)
                              (K-REF5698 ':INT32) (LDA-REF5700 ':INT32)
                              (LDC-REF5703 ':INT32) (LWORK-REF5705 ':INT32)
                              (INFO-REF5706 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5696 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5698 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5700 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5703 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5705 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5706 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5699 A) (TAU-REF5701 TAU)
                                            (C-REF5702 C) (WORK-REF5704 WORK))
      (%%CUNMRQ SIDE TRANS M-REF5696 N-REF5697 K-REF5698 A-REF5699 LDA-REF5700
       TAU-REF5701 C-REF5702 LDC-REF5703 WORK-REF5704 LWORK-REF5705
       INFO-REF5706))))

(CFFI:DEFCFUN ("cunmrz_" %%CUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5709 ':INT32) (N-REF5710 ':INT32)
                              (K-REF5711 ':INT32) (L-REF5712 ':INT32)
                              (LDA-REF5714 ':INT32) (LDC-REF5717 ':INT32)
                              (LWORK-REF5719 ':INT32) (INFO-REF5720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5709 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5710 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5711 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5712 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5714 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5717 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5719 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5713 A) (TAU-REF5715 TAU)
                                            (C-REF5716 C) (WORK-REF5718 WORK))
      (%%CUNMRZ SIDE TRANS M-REF5709 N-REF5710 K-REF5711 L-REF5712 A-REF5713
       LDA-REF5714 TAU-REF5715 C-REF5716 LDC-REF5717 WORK-REF5718 LWORK-REF5719
       INFO-REF5720))))

(CFFI:DEFCFUN ("cunmtr_" %%CUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5724 ':INT32) (N-REF5725 ':INT32)
                              (LDA-REF5727 ':INT32) (LDC-REF5730 ':INT32)
                              (LWORK-REF5732 ':INT32) (INFO-REF5733 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5724 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5725 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5727 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5730 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5732 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5733 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5726 A) (TAU-REF5728 TAU)
                                            (C-REF5729 C) (WORK-REF5731 WORK))
      (%%CUNMTR SIDE UPLO TRANS M-REF5724 N-REF5725 A-REF5726 LDA-REF5727
       TAU-REF5728 C-REF5729 LDC-REF5730 WORK-REF5731 LWORK-REF5732
       INFO-REF5733))))

(CFFI:DEFCFUN ("cupgtr_" %%CUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5735 ':INT32) (LDQ-REF5739 ':INT32)
                              (INFO-REF5741 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5735 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5739 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5741 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5736 AP) (TAU-REF5737 TAU)
                                            (Q-REF5738 Q) (WORK-REF5740 WORK))
      (%%CUPGTR UPLO N-REF5735 AP-REF5736 TAU-REF5737 Q-REF5738 LDQ-REF5739
       WORK-REF5740 INFO-REF5741))))

(CFFI:DEFCFUN ("cupmtr_" %%CUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5745 ':INT32) (N-REF5746 ':INT32)
                              (LDC-REF5750 ':INT32) (INFO-REF5752 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5745 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5746 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5750 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5752 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5747 AP) (TAU-REF5748 TAU)
                                            (C-REF5749 C) (WORK-REF5751 WORK))
      (%%CUPMTR SIDE UPLO TRANS M-REF5745 N-REF5746 AP-REF5747 TAU-REF5748
       C-REF5749 LDC-REF5750 WORK-REF5751 INFO-REF5752))))

(CFFI:DEFCFUN ("dbbcsd_" %%DBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5758 ':INT32) (P-REF5759 ':INT32)
                              (Q-REF5760 ':INT32) (LDU1-REF5764 ':INT32)
                              (LDU2-REF5766 ':INT32) (LDV1T-REF5768 ':INT32)
                              (LDV2T-REF5770 ':INT32) (LWORK-REF5780 ':INT32)
                              (INFO-REF5781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5758 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5759 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5760 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5764 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5766 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5768 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5770 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5780 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5781 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF5761 THETA)
                                            (PHI-REF5762 PHI) (U1-REF5763 U1)
                                            (U2-REF5765 U2) (V1T-REF5767 V1T)
                                            (V2T-REF5769 V2T)
                                            (B11D-REF5771 B11D)
                                            (B11E-REF5772 B11E)
                                            (B12D-REF5773 B12D)
                                            (B12E-REF5774 B12E)
                                            (B21D-REF5775 B21D)
                                            (B21E-REF5776 B21E)
                                            (B22D-REF5777 B22D)
                                            (B22E-REF5778 B22E)
                                            (WORK-REF5779 WORK))
      (%%DBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF5758 P-REF5759 Q-REF5760
       THETA-REF5761 PHI-REF5762 U1-REF5763 LDU1-REF5764 U2-REF5765
       LDU2-REF5766 V1T-REF5767 LDV1T-REF5768 V2T-REF5769 LDV2T-REF5770
       B11D-REF5771 B11E-REF5772 B12D-REF5773 B12E-REF5774 B21D-REF5775
       B21E-REF5776 B22D-REF5777 B22E-REF5778 WORK-REF5779 LWORK-REF5780
       INFO-REF5781))))

(CFFI:DEFCFUN ("dbdsdc_" %%DBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (COMPQ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (Q :POINTER)
  (IQ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBDSDC
                   (UPLO COMPQ N D E U LDU VT LDVT Q IQ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5784 ':INT32) (LDU-REF5788 ':INT32)
                              (LDVT-REF5790 ':INT32) (INFO-REF5795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5788 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5790 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5785 D) (E-REF5786 E)
                                            (U-REF5787 U) (VT-REF5789 VT)
                                            (Q-REF5791 Q) (IQ-REF5792 IQ)
                                            (WORK-REF5793 WORK)
                                            (IWORK-REF5794 IWORK))
      (%%DBDSDC UPLO COMPQ N-REF5784 D-REF5785 E-REF5786 U-REF5787 LDU-REF5788
       VT-REF5789 LDVT-REF5790 Q-REF5791 IQ-REF5792 WORK-REF5793 IWORK-REF5794
       INFO-REF5795))))

(CFFI:DEFCFUN ("dbdsqr_" %%DBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5797 ':INT32) (NCVT-REF5798 ':INT32)
                              (NRU-REF5799 ':INT32) (NCC-REF5800 ':INT32)
                              (LDVT-REF5804 ':INT32) (LDU-REF5806 ':INT32)
                              (LDC-REF5808 ':INT32) (INFO-REF5810 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF5798 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF5799 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5800 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5804 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5806 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5808 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5810 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5801 D) (E-REF5802 E)
                                            (VT-REF5803 VT) (U-REF5805 U)
                                            (C-REF5807 C) (WORK-REF5809 WORK))
      (%%DBDSQR UPLO N-REF5797 NCVT-REF5798 NRU-REF5799 NCC-REF5800 D-REF5801
       E-REF5802 VT-REF5803 LDVT-REF5804 U-REF5805 LDU-REF5806 C-REF5807
       LDC-REF5808 WORK-REF5809 INFO-REF5810))))

(CFFI:DEFCFUN ("dbdsvdx_" %%DBDSVDX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBDSVDX
                   (UPLO JOBZ RANGE N D E VL VU IL IU NS S Z LDZ WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5814 ':INT32) (VL-REF5817 ':DOUBLE)
                              (VU-REF5818 ':DOUBLE) (IL-REF5819 ':INT32)
                              (IU-REF5820 ':INT32) (NS-REF5821 ':INT32)
                              (LDZ-REF5824 ':INT32) (INFO-REF5827 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5817 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5818 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5819 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5820 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF5821 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5824 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5827 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5815 D) (E-REF5816 E)
                                            (S-REF5822 S) (Z-REF5823 Z)
                                            (WORK-REF5825 WORK)
                                            (IWORK-REF5826 IWORK))
      (%%DBDSVDX UPLO JOBZ RANGE N-REF5814 D-REF5815 E-REF5816 VL-REF5817
       VU-REF5818 IL-REF5819 IU-REF5820 NS-REF5821 S-REF5822 Z-REF5823
       LDZ-REF5824 WORK-REF5825 IWORK-REF5826 INFO-REF5827))))

(CFFI:DEFCFUN ("dcombssq_" %%DCOMBSSQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (V1 :POINTER)
  (V2 :POINTER))

(COMMON-LISP:DEFUN %DCOMBSSQ (V1 V2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCOMBSSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V2))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF5828 V1) (V2-REF5829 V2))
      (%%DCOMBSSQ V1-REF5828 V2-REF5829))))

(CFFI:DEFCFUN ("ddisna_" %%DDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (SEP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DDISNA (JOB M N D SEP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DDISNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5831 ':INT32) (N-REF5832 ':INT32)
                              (INFO-REF5835 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5831 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5832 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5835 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5833 D) (SEP-REF5834 SEP))
      (%%DDISNA JOB M-REF5831 N-REF5832 D-REF5833 SEP-REF5834 INFO-REF5835))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%CLANSY %CLANSY %%CLANTB %CLANTB %%CLANTP %CLANTP
  %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB
  %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP
  %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0 %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2
  %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4 %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB
  %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V %CLAR1V %%CLAR2V %CLAR2V %%CLARCM
  %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB %%CLARFG %CLARFG %%CLARFGP %CLARFGP
  %%CLARFT %CLARFT %%CLARFX %CLARFX %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV
  %CLARNV %%CLARRV %CLARRV %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV
  %CLARTV %%CLARZ %CLARZ %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL
  %%CLASCL2 %CLASCL2 %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ
  %CLASWLQ %%CLASWP %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK
  %CLASYF_RK %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF
  %%CLATPS %CLATPS %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR
  %CLATSQR %%CLAUNHR_COL_GETRFNP %CLAUNHR_COL_GETRFNP %%CLAUNHR_COL_GETRFNP2
  %CLAUNHR_COL_GETRFNP2 %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON
  %%CPBEQU %CPBEQU %%CPBRFS %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX
  %CPBSVX %%CPBTF2 %CPBTF2 %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF
  %%CPFTRI %CPFTRI %%CPFTRS %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB
  %CPOEQUB %%CPORFS %CPORFS %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX
  %%CPOSVXX %CPOSVXX %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2
  %%CPOTRI %CPOTRI %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS
  %CPPRFS %%CPPSV %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI
  %%CPPTRS %CPPTRS %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR
  %CPTEQR %%CPTRFS %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF
  %%CPTTRS %CPTTRS %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV
  %CSPMV %%CSPR %CSPR %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF
  %CSPTRF %%CSPTRI %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC
  %%CSTEGR %CSTEGR %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON
  %CSYCON %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV
  %%CSYCONVF %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB
  %%CSYMV %CSYMV %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV
  %CSYSV %%CSYSV_AA %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK
  %CSYSV_RK %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX
  %%CSYSWAPR %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK
  %CSYTF2_ROOK %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE
  %CSYTRF_AA_2STAGE %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI
  %CSYTRI %%CSYTRI2 %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3
  %%CSYTRI_3X %CSYTRI_3X %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2
  %CSYTRS2 %%CSYTRS_3 %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE
  %CSYTRS_AA_2STAGE %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS
  %CTBRFS %%CTBTRS %CTBTRS %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP
  %%CTFTTR %CTFTTR %%CTGEVC %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN
  %CTGSEN %%CTGSJA %CTGSJA %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL
  %%CTPCON %CTPCON %%CTPLQT %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT
  %%CTPMQRT %CTPMQRT %%CTPQRT %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB
  %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR
  %CTPTTR %%CTRCON %CTRCON %%CTREVC %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC
  %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2
  %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP
  %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2
  %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4 %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6
  %%CUNCSD %CUNCSD %%CUNCSD2BY1 %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R
  %%CUNGBR %CUNGBR %%CUNGHR %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL
  %CUNGQL %%CUNGQR %CUNGQR %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR
  %%CUNGTSQR %CUNGTSQR %%CUNHR_COL %CUNHR_COL %%CUNM22 %CUNM22 %%CUNM2L %CUNM2L
  %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2 %%CUNMLQ
  %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3 %CUNMR3
  %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR %%CUPMTR
  %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX %DBDSVDX
  %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("CLANSY" "clansy_" %%CLANSY %CLANSY)
                                          ("CLANTB" "clantb_" %%CLANTB %CLANTB)
                                          ("CLANTP" "clantp_" %%CLANTP %CLANTP)
                                          ("CLANTR" "clantr_" %%CLANTR %CLANTR)
                                          ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL)
                                          ("CLAPMR" "clapmr_" %%CLAPMR %CLAPMR)
                                          ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT)
                                          ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB)
                                          ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE)
                                          ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB)
                                          ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE)
                                          ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP)
                                          ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2)
                                          ("CLAQPS" "claqps_" %%CLAQPS %CLAQPS)
                                          ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0)
                                          ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1)
                                          ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2)
                                          ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3)
                                          ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4)
                                          ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5)
                                          ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB)
                                          ("CLAQSP" "claqsp_" %%CLAQSP %CLAQSP)
                                          ("CLAQSY" "claqsy_" %%CLAQSY %CLAQSY)
                                          ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V)
                                          ("CLAR2V" "clar2v_" %%CLAR2V %CLAR2V)
                                          ("CLARCM" "clarcm_" %%CLARCM %CLARCM)
                                          ("CLARF" "clarf_" %%CLARF %CLARF)
                                          ("CLARFB" "clarfb_" %%CLARFB %CLARFB)
                                          ("CLARFG" "clarfg_" %%CLARFG %CLARFG)
                                          ("CLARFGP" "clarfgp_" %%CLARFGP
                                           %CLARFGP)
                                          ("CLARFT" "clarft_" %%CLARFT %CLARFT)
                                          ("CLARFX" "clarfx_" %%CLARFX %CLARFX)
                                          ("CLARFY" "clarfy_" %%CLARFY %CLARFY)
                                          ("CLARGV" "clargv_" %%CLARGV %CLARGV)
                                          ("CLARNV" "clarnv_" %%CLARNV %CLARNV)
                                          ("CLARRV" "clarrv_" %%CLARRV %CLARRV)
                                          ("CLARSCL2" "clarscl2_" %%CLARSCL2
                                           %CLARSCL2)
                                          ("CLARTG" "clartg_" %%CLARTG %CLARTG)
                                          ("CLARTV" "clartv_" %%CLARTV %CLARTV)
                                          ("CLARZ" "clarz_" %%CLARZ %CLARZ)
                                          ("CLARZB" "clarzb_" %%CLARZB %CLARZB)
                                          ("CLARZT" "clarzt_" %%CLARZT %CLARZT)
                                          ("CLASCL" "clascl_" %%CLASCL %CLASCL)
                                          ("CLASCL2" "clascl2_" %%CLASCL2
                                           %CLASCL2)
                                          ("CLASET" "claset_" %%CLASET %CLASET)
                                          ("CLASR" "clasr_" %%CLASR %CLASR)
                                          ("CLASSQ" "classq_" %%CLASSQ %CLASSQ)
                                          ("CLASWLQ" "claswlq_" %%CLASWLQ
                                           %CLASWLQ)
                                          ("CLASWP" "claswp_" %%CLASWP %CLASWP)
                                          ("CLASYF" "clasyf_" %%CLASYF %CLASYF)
                                          ("CLASYF_AA" "clasyf_aa_" %%CLASYF_AA
                                           %CLASYF_AA)
                                          ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK
                                           %CLASYF_RK)
                                          ("CLASYF_ROOK" "clasyf_rook_"
                                           %%CLASYF_ROOK %CLASYF_ROOK)
                                          ("CLATBS" "clatbs_" %%CLATBS %CLATBS)
                                          ("CLATDF" "clatdf_" %%CLATDF %CLATDF)
                                          ("CLATPS" "clatps_" %%CLATPS %CLATPS)
                                          ("CLATRD" "clatrd_" %%CLATRD %CLATRD)
                                          ("CLATRS" "clatrs_" %%CLATRS %CLATRS)
                                          ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ)
                                          ("CLATSQR" "clatsqr_" %%CLATSQR
                                           %CLATSQR)
                                          ("CLAUNHR_COL_GETRFNP"
                                           "claunhr_col_getrfnp_"
                                           %%CLAUNHR_COL_GETRFNP
                                           %CLAUNHR_COL_GETRFNP)
                                          ("CLAUNHR_COL_GETRFNP2"
                                           "claunhr_col_getrfnp2_"
                                           %%CLAUNHR_COL_GETRFNP2
                                           %CLAUNHR_COL_GETRFNP2)
                                          ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2)
                                          ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM)
                                          ("CPBCON" "cpbcon_" %%CPBCON %CPBCON)
                                          ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU)
                                          ("CPBRFS" "cpbrfs_" %%CPBRFS %CPBRFS)
                                          ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF)
                                          ("CPBSV" "cpbsv_" %%CPBSV %CPBSV)
                                          ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX)
                                          ("CPBTF2" "cpbtf2_" %%CPBTF2 %CPBTF2)
                                          ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF)
                                          ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS)
                                          ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF)
                                          ("CPFTRI" "cpftri_" %%CPFTRI %CPFTRI)
                                          ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS)
                                          ("CPOCON" "cpocon_" %%CPOCON %CPOCON)
                                          ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU)
                                          ("CPOEQUB" "cpoequb_" %%CPOEQUB
                                           %CPOEQUB)
                                          ("CPORFS" "cporfs_" %%CPORFS %CPORFS)
                                          ("CPORFSX" "cporfsx_" %%CPORFSX
                                           %CPORFSX)
                                          ("CPOSV" "cposv_" %%CPOSV %CPOSV)
                                          ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX)
                                          ("CPOSVXX" "cposvxx_" %%CPOSVXX
                                           %CPOSVXX)
                                          ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2)
                                          ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF)
                                          ("CPOTRF2" "cpotrf2_" %%CPOTRF2
                                           %CPOTRF2)
                                          ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI)
                                          ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS)
                                          ("CPPCON" "cppcon_" %%CPPCON %CPPCON)
                                          ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU)
                                          ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS)
                                          ("CPPSV" "cppsv_" %%CPPSV %CPPSV)
                                          ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX)
                                          ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF)
                                          ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI)
                                          ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS)
                                          ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2)
                                          ("CPSTRF" "cpstrf_" %%CPSTRF %CPSTRF)
                                          ("CPTCON" "cptcon_" %%CPTCON %CPTCON)
                                          ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR)
                                          ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS)
                                          ("CPTSV" "cptsv_" %%CPTSV %CPTSV)
                                          ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX)
                                          ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF)
                                          ("CPTTRS" "cpttrs_" %%CPTTRS %CPTTRS)
                                          ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2)
                                          ("CROT" "crot_" %%CROT %CROT)
                                          ("CSPCON" "cspcon_" %%CSPCON %CSPCON)
                                          ("CSPMV" "cspmv_" %%CSPMV %CSPMV)
                                          ("CSPR" "cspr_" %%CSPR %CSPR)
                                          ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS)
                                          ("CSPSV" "cspsv_" %%CSPSV %CSPSV)
                                          ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX)
                                          ("CSPTRF" "csptrf_" %%CSPTRF %CSPTRF)
                                          ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI)
                                          ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS)
                                          ("CSRSCL" "csrscl_" %%CSRSCL %CSRSCL)
                                          ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC)
                                          ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR)
                                          ("CSTEIN" "cstein_" %%CSTEIN %CSTEIN)
                                          ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR)
                                          ("CSTEQR" "csteqr_" %%CSTEQR %CSTEQR)
                                          ("CSYCON" "csycon_" %%CSYCON %CSYCON)
                                          ("CSYCON_3" "csycon_3_" %%CSYCON_3
                                           %CSYCON_3)
                                          ("CSYCON_ROOK" "csycon_rook_"
                                           %%CSYCON_ROOK %CSYCON_ROOK)
                                          ("CSYCONV" "csyconv_" %%CSYCONV
                                           %CSYCONV)
                                          ("CSYCONVF" "csyconvf_" %%CSYCONVF
                                           %CSYCONVF)
                                          ("CSYCONVF_ROOK" "csyconvf_rook_"
                                           %%CSYCONVF_ROOK %CSYCONVF_ROOK)
                                          ("CSYEQUB" "csyequb_" %%CSYEQUB
                                           %CSYEQUB)
                                          ("CSYMV" "csymv_" %%CSYMV %CSYMV)
                                          ("CSYR" "csyr_" %%CSYR %CSYR)
                                          ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS)
                                          ("CSYRFSX" "csyrfsx_" %%CSYRFSX
                                           %CSYRFSX)
                                          ("CSYSV" "csysv_" %%CSYSV %CSYSV)
                                          ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA
                                           %CSYSV_AA)
                                          ("CSYSV_AA_2STAGE" "csysv_aa_2stage_"
                                           %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE)
                                          ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK
                                           %CSYSV_RK)
                                          ("CSYSV_ROOK" "csysv_rook_"
                                           %%CSYSV_ROOK %CSYSV_ROOK)
                                          ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX)
                                          ("CSYSVXX" "csysvxx_" %%CSYSVXX
                                           %CSYSVXX)
                                          ("CSYSWAPR" "csyswapr_" %%CSYSWAPR
                                           %CSYSWAPR)
                                          ("CSYTF2" "csytf2_" %%CSYTF2 %CSYTF2)
                                          ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK
                                           %CSYTF2_RK)
                                          ("CSYTF2_ROOK" "csytf2_rook_"
                                           %%CSYTF2_ROOK %CSYTF2_ROOK)
                                          ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF)
                                          ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA
                                           %CSYTRF_AA)
                                          ("CSYTRF_AA_2STAGE"
                                           "csytrf_aa_2stage_"
                                           %%CSYTRF_AA_2STAGE
                                           %CSYTRF_AA_2STAGE)
                                          ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK
                                           %CSYTRF_RK)
                                          ("CSYTRF_ROOK" "csytrf_rook_"
                                           %%CSYTRF_ROOK %CSYTRF_ROOK)
                                          ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI)
                                          ("CSYTRI2" "csytri2_" %%CSYTRI2
                                           %CSYTRI2)
                                          ("CSYTRI2X" "csytri2x_" %%CSYTRI2X
                                           %CSYTRI2X)
                                          ("CSYTRI_3" "csytri_3_" %%CSYTRI_3
                                           %CSYTRI_3)
                                          ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X
                                           %CSYTRI_3X)
                                          ("CSYTRI_ROOK" "csytri_rook_"
                                           %%CSYTRI_ROOK %CSYTRI_ROOK)
                                          ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS)
                                          ("CSYTRS2" "csytrs2_" %%CSYTRS2
                                           %CSYTRS2)
                                          ("CSYTRS_3" "csytrs_3_" %%CSYTRS_3
                                           %CSYTRS_3)
                                          ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA
                                           %CSYTRS_AA)
                                          ("CSYTRS_AA_2STAGE"
                                           "csytrs_aa_2stage_"
                                           %%CSYTRS_AA_2STAGE
                                           %CSYTRS_AA_2STAGE)
                                          ("CSYTRS_ROOK" "csytrs_rook_"
                                           %%CSYTRS_ROOK %CSYTRS_ROOK)
                                          ("CTBCON" "ctbcon_" %%CTBCON %CTBCON)
                                          ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS)
                                          ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS)
                                          ("CTFSM" "ctfsm_" %%CTFSM %CTFSM)
                                          ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI)
                                          ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP)
                                          ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR)
                                          ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC)
                                          ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2)
                                          ("CTGEXC" "ctgexc_" %%CTGEXC %CTGEXC)
                                          ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN)
                                          ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA)
                                          ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA)
                                          ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2)
                                          ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL)
                                          ("CTPCON" "ctpcon_" %%CTPCON %CTPCON)
                                          ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT)
                                          ("CTPLQT2" "ctplqt2_" %%CTPLQT2
                                           %CTPLQT2)
                                          ("CTPMLQT" "ctpmlqt_" %%CTPMLQT
                                           %CTPMLQT)
                                          ("CTPMQRT" "ctpmqrt_" %%CTPMQRT
                                           %CTPMQRT)
                                          ("CTPQRT" "ctpqrt_" %%CTPQRT %CTPQRT)
                                          ("CTPQRT2" "ctpqrt2_" %%CTPQRT2
                                           %CTPQRT2)
                                          ("CTPRFB" "ctprfb_" %%CTPRFB %CTPRFB)
                                          ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS)
                                          ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI)
                                          ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS)
                                          ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF)
                                          ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR)
                                          ("CTRCON" "ctrcon_" %%CTRCON %CTRCON)
                                          ("CTREVC" "ctrevc_" %%CTREVC %CTREVC)
                                          ("CTREVC3" "ctrevc3_" %%CTREVC3
                                           %CTREVC3)
                                          ("CTREXC" "ctrexc_" %%CTREXC %CTREXC)
                                          ("CTRRFS" "ctrrfs_" %%CTRRFS %CTRRFS)
                                          ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN)
                                          ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA)
                                          ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL)
                                          ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2)
                                          ("CTRTRI" "ctrtri_" %%CTRTRI %CTRTRI)
                                          ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS)
                                          ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF)
                                          ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP)
                                          ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF)
                                          ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB)
                                          ("CUNBDB1" "cunbdb1_" %%CUNBDB1
                                           %CUNBDB1)
                                          ("CUNBDB2" "cunbdb2_" %%CUNBDB2
                                           %CUNBDB2)
                                          ("CUNBDB3" "cunbdb3_" %%CUNBDB3
                                           %CUNBDB3)
                                          ("CUNBDB4" "cunbdb4_" %%CUNBDB4
                                           %CUNBDB4)
                                          ("CUNBDB5" "cunbdb5_" %%CUNBDB5
                                           %CUNBDB5)
                                          ("CUNBDB6" "cunbdb6_" %%CUNBDB6
                                           %CUNBDB6)
                                          ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD)
                                          ("CUNCSD2BY1" "cuncsd2by1_"
                                           %%CUNCSD2BY1 %CUNCSD2BY1)
                                          ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L)
                                          ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R)
                                          ("CUNGBR" "cungbr_" %%CUNGBR %CUNGBR)
                                          ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR)
                                          ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2)
                                          ("CUNGLQ" "cunglq_" %%CUNGLQ %CUNGLQ)
                                          ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL)
                                          ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR)
                                          ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2)
                                          ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ)
                                          ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR)
                                          ("CUNGTSQR" "cungtsqr_" %%CUNGTSQR
                                           %CUNGTSQR)
                                          ("CUNHR_COL" "cunhr_col_" %%CUNHR_COL
                                           %CUNHR_COL)
                                          ("CUNM22" "cunm22_" %%CUNM22 %CUNM22)
                                          ("CUNM2L" "cunm2l_" %%CUNM2L %CUNM2L)
                                          ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R)
                                          ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR)
                                          ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR)
                                          ("CUNML2" "cunml2_" %%CUNML2 %CUNML2)
                                          ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ)
                                          ("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL)
                                          ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR)
                                          ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2)
                                          ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3)
                                          ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ)
                                          ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ)
                                          ("CUNMTR" "cunmtr_" %%CUNMTR %CUNMTR)
                                          ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR)
                                          ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR)
                                          ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD)
                                          ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC)
                                          ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR)
                                          ("DBDSVDX" "dbdsvdx_" %%DBDSVDX
                                           %DBDSVDX)
                                          ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ
                                           %DCOMBSSQ)
                                          ("DDISNA" "ddisna_" %%DDISNA
                                           %DDISNA)))

(COMMON-LISP:EXPORT
 '(%CLANSY %CLANTB %CLANTP %CLANTR %CLAPLL %CLAPMR %CLAPMT %CLAQGB %CLAQGE
   %CLAQHB %CLAQHE %CLAQHP %CLAQP2 %CLAQPS %CLAQR0 %CLAQR1 %CLAQR2 %CLAQR3
   %CLAQR4 %CLAQR5 %CLAQSB %CLAQSP %CLAQSY %CLAR1V %CLAR2V %CLARCM %CLARF
   %CLARFB %CLARFG %CLARFGP %CLARFT %CLARFX %CLARFY %CLARGV %CLARNV %CLARRV
   %CLARSCL2 %CLARTG %CLARTV %CLARZ %CLARZB %CLARZT %CLASCL %CLASCL2 %CLASET
   %CLASR %CLASSQ %CLASWLQ %CLASWP %CLASYF %CLASYF_AA %CLASYF_RK %CLASYF_ROOK
   %CLATBS %CLATDF %CLATPS %CLATRD %CLATRS %CLATRZ %CLATSQR
   %CLAUNHR_COL_GETRFNP %CLAUNHR_COL_GETRFNP2 %CLAUU2 %CLAUUM %CPBCON %CPBEQU
   %CPBRFS %CPBSTF %CPBSV %CPBSVX %CPBTF2 %CPBTRF %CPBTRS %CPFTRF %CPFTRI
   %CPFTRS %CPOCON %CPOEQU %CPOEQUB %CPORFS %CPORFSX %CPOSV %CPOSVX %CPOSVXX
   %CPOTF2 %CPOTRF %CPOTRF2 %CPOTRI %CPOTRS %CPPCON %CPPEQU %CPPRFS %CPPSV
   %CPPSVX %CPPTRF %CPPTRI %CPPTRS %CPSTF2 %CPSTRF %CPTCON %CPTEQR %CPTRFS
   %CPTSV %CPTSVX %CPTTRF %CPTTRS %CPTTS2 %CROT %CSPCON %CSPMV %CSPR %CSPRFS
   %CSPSV %CSPSVX %CSPTRF %CSPTRI %CSPTRS %CSRSCL %CSTEDC %CSTEGR %CSTEIN
   %CSTEMR %CSTEQR %CSYCON %CSYCON_3 %CSYCON_ROOK %CSYCONV %CSYCONVF
   %CSYCONVF_ROOK %CSYEQUB %CSYMV %CSYR %CSYRFS %CSYRFSX %CSYSV %CSYSV_AA
   %CSYSV_AA_2STAGE %CSYSV_RK %CSYSV_ROOK %CSYSVX %CSYSVXX %CSYSWAPR %CSYTF2
   %CSYTF2_RK %CSYTF2_ROOK %CSYTRF %CSYTRF_AA %CSYTRF_AA_2STAGE %CSYTRF_RK
   %CSYTRF_ROOK %CSYTRI %CSYTRI2 %CSYTRI2X %CSYTRI_3 %CSYTRI_3X %CSYTRI_ROOK
   %CSYTRS %CSYTRS2 %CSYTRS_3 %CSYTRS_AA %CSYTRS_AA_2STAGE %CSYTRS_ROOK %CTBCON
   %CTBRFS %CTBTRS %CTFSM %CTFTRI %CTFTTP %CTFTTR %CTGEVC %CTGEX2 %CTGEXC
   %CTGSEN %CTGSJA %CTGSNA %CTGSY2 %CTGSYL %CTPCON %CTPLQT %CTPLQT2 %CTPMLQT
   %CTPMQRT %CTPQRT %CTPQRT2 %CTPRFB %CTPRFS %CTPTRI %CTPTRS %CTPTTF %CTPTTR
   %CTRCON %CTREVC %CTREVC3 %CTREXC %CTRRFS %CTRSEN %CTRSNA %CTRSYL %CTRTI2
   %CTRTRI %CTRTRS %CTRTTF %CTRTTP %CTZRZF %CUNBDB %CUNBDB1 %CUNBDB2 %CUNBDB3
   %CUNBDB4 %CUNBDB5 %CUNBDB6 %CUNCSD %CUNCSD2BY1 %CUNG2L %CUNG2R %CUNGBR
   %CUNGHR %CUNGL2 %CUNGLQ %CUNGQL %CUNGQR %CUNGR2 %CUNGRQ %CUNGTR %CUNGTSQR
   %CUNHR_COL %CUNM22 %CUNM2L %CUNM2R %CUNMBR %CUNMHR %CUNML2 %CUNMLQ %CUNMQL
   %CUNMQR %CUNMR2 %CUNMR3 %CUNMRQ %CUNMRZ %CUNMTR %CUPGTR %CUPMTR %DBBCSD
   %DBDSDC %DBDSQR %DBDSVDX %DCOMBSSQ %DDISNA)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
